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ПРЕДИСЛОВИЕ 


Язык программирования Форт (англ, /о гік — 
вперед и одновременно сокращение от (оигііі — четвер¬ 
тый), которому посвящена эта книга, появился в начале 
1970-х гг. в США. Его изобретатель Чарльз Мур пер¬ 
воначально применил его для разработки программного 
обеспечения микроЭВМ, управляющей работой радио¬ 
телескопа [27]. Преимущества работы с языком Форт 
вместо применявшегося ранее Ассемблера были на¬ 
столько велики, что вскоре он стал использоваться и на 
других специализированных ЭВМ. 

Быстрый рост популярности языка Форт начался 
с середины 1970-х гг., когда появились персональные 
ЭВМ. Оказалось, что этот язык позволяет обходиться 
сравнительно небольшим набором возможностей пер¬ 
вых персональных ЭВМ, превращая их в удобный и 
эффективный инструмент для самой разной работы. К 
середине 1980-х гг. Форт выдвинулся на третье место 
после языков Бейсик и Паскаль в качестве средства про¬ 
граммирования для персональных ЭВМ, и рост его при¬ 
менения продолжается [7, с. 54]. Широкое распростра¬ 
нение получили коммерческие программные продукты, 
написанные на Форте: системы обработки текстов, паке¬ 
ты машинной графики, трансляторы, видеоигры 
[24, 30]. Стихийно быстрое распространение Форта и 
его практический успех обусловили необходимость стан¬ 
дартизации языка. В 1983 г. был опубликован стандарт 
«Форт-83» [3, 23, 26], в соответствии с которым ведется 
изложение материала в этой книге. 

Едва появившись, Форт вызвал ожесточенные 
споры среди профессионалов-программистов, обсуж¬ 
давших, в частности, является ли Форт еще одним 
языком (если языком, то какого уровня — высокого или 
низкого), операционной системой, интерпретатором или 
компилятором. Одни считали Форт шагом вперед в раз- 
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витии программирования, другие — ошибочным выб¬ 
росом в сторону. К настоящему времени становится 
ясным, что Форт представляет собой самостоятельный 
унифицированный подход к разработке программного 
обеспечения, который действительно позволяет решать 
практические задачи — от небольших игровых прог¬ 
рамм до больших систем программного обеспечения, ра¬ 
ботающих в реальном времени [21; 7, с.56]. Унифика¬ 
ция состоит в том, что Форт предполагает последова¬ 
тельное и систематическое использование очень не¬ 
большого числа «правил». Например, «мостом» между 
аппаратурой и прикладной задачей служит всего 
один язык программирования (Форт), в то время как 
при традиционном подходе этот разрыв заполняется 
в несколько приемов разнородными инструменталь¬ 
ными средствами (ассемблер, универсальные языки 
выского уровня, проблемно-ориентированные языки, 
средства операционной системы). 

Система программирования на Форте (форт- 
система) обычно обеспечивает полный набор средств 
поддержки для разработки и исполнения программ: 
операционную систему, интерпретатор для диалогового 
исполнения, компилятор, ассемблер, текстовый редак¬ 
тор и обслуживающие программы. Все эти компоненты 
являются расширениями Форта и написаны на том же 
Форте. Таким образом, Форт является одновременно 
и системой для пользователя, и собственной метасис¬ 
темой, т. е. системой, описывающей саму себя (см. при¬ 
ложение 1). В соответствии с общим принципом Форта 
в форт-системе используется минимум правил и накла¬ 
дывается минимум ограничений, т. е. она обходится 
почти без синтаксиса, жестко контролируемых интер¬ 
фейсов для взаимодействия модулей, закрытых для 
пользователя областей памяти, имеет лишь незначи¬ 
тельный по объему встроенный контроль ошибок. Это 
обеспечивает максимум возможностей для програм¬ 
миста, включая возможность изменять, добавлять или 
удалять любую часть системы, позволяет расширять 
систему в заданном направлении и вместе с тем сохра¬ 
няет ее относительную независимость от аппаратуры. 

Разумеется, Форт имеет и свои недостатки. Мно¬ 
гие программисты считают, что форт-тексты трудно 
читаемы из-за применяемой в Форте обратной польской 
формы и различных неочевидных манипуляций со сте- 
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ком. В некоторых форт-системах отсутствуют средств - 
для получения независимого программного продукта. 
Вызывает возражение отсутствие контроля типов при 
взаимодействии модулей и незащищенность форт-систе- 
мы от неправильных действий программиста. В то же 
время становится ясно, что методология Форта нахо¬ 
дится в общем русле поисков в области технологии 
программирования, хотя в настоящее время практиче¬ 
ски отсутствуют работы по методологическим и тех¬ 
нологическим аспектам его применения, сравнимые 
по значимости с исследованиями для традиционных 
языков [13, 14, 19]. 

В целом цикл разработки программного продукта ос¬ 
тается неизменным: анализ, проектирование, програм¬ 
мирование, отладка. Однако лишь на первых двух эта¬ 
пах применяется традиционная технология «сверху — 
вниз». Программирование и отладка ведутся по методу 
«снизу — вверх». Благодаря этому отпадает необходи¬ 
мость в модулях-заглушках и в повторных тестировани¬ 
ях всего комплекса программ при заменах заглушек на 
действительные модули, что сокращает время прохож¬ 
дения всего цикла и позволяет выполнить его несколько 
раз за то же время. При разработке форт-программ на¬ 
блюдается тенденция к вычленению относительно зам¬ 
кнутых групп модулей, каждая из которых проходит 
свой цикл разработки. При этом обычно размер модуля 
составляет от 1 до 3 строк текста, что резко контрасти¬ 
рует с традиционными языками. Для целей промышлен¬ 
ного производства программ сочетание методологии 
Форта с существующими [14] представляется весьма 
перспективным, однако практические разработки в этой 
области пока не известны. 

В нашей стране также шли поиски принципов, 
аналогичных тем, которые ныне определяют язык Форт, 
в большей степени исходя из теоретических основ про¬ 
граммирования [10]. Эти работы привели к созданию 
интересных систем ДССП [9], КОМФОРТ [12], систе¬ 
мы программирования на основе понятия «рабочей 
смеси» [5, 17] и других. Интерес к языку Форт возра¬ 
стал по мере получения сведений о нем и достижения 
собственных результатов в этой области [2,6, 18,20]. 
Усилиями энтузиастов созданы самостоятельные ре¬ 
ализации Форта, которые получают распространение 
наряду с заимствованными реализациями (см. при- 
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ложсние 2). Язык Форт включается в программное 
обеспечение школьных компьютеров. Ведутся работы 
по аппаратной реализации этого языка [12]. В 1985 г. 
в рамках Рабочей группы по технологии программиро¬ 
вания микропроцессорной техники при Комиссии по 
технологии программирования при ГКНТ была создана 
целевая подгруппа по языку Форт и родственным сис¬ 
темам, задачей которой является обобщение и распро¬ 
странение опыта практического применения этих 
средств в различных областях. 

С 1978 г. в США выходит журнал «Форт Дименшнз» 
(РОЦТН Оітепзіопз) — основное периодическое из¬ 
дание для массовых пользователей языка Форт. 
С 1979 г. проводятся ежегодные конференции, мате¬ 
риалы которых, отражающие последние достиже¬ 
ния в развитии форт-подхода, публикуются в виде 
сборников. С 1983 г. издается журнал «Джорнал оф 
Форт Эпликейшн энд Рисёч» (ТНе Зоигпаі о/ РОЦТН 
Арріісаііоп апсі КевеагсН , шифр ГПНТБ — Ѵ1467) — 
издание для программистов-профессионалов. Журналы 
«Байт» (ВУТЕ, шифр В1841) и «Д-р Доббз Джорнал» 
(Ог. ОоЬЬ'в Іоигпаі , шифр \Ѵ9464) посвящают 
языку Форт специальные выпуски. 

До сих пор знакомству широких кругов програм¬ 
мистов нашей страны с этим языком препятствовало 
отсутствие сколько-нибудь обстоятельных публикаций 
о нем на русском языке. Данная книга является пер¬ 
вой такой публикацией и написана с целью дать подроб¬ 
ное и по возможности простое введение в язык Форт. 
Мы надеемся, что знакомство с интересными принци¬ 
пами этого языка позволит читателям по-новому 
взглянуть на свою программистскую практику и будет 
полезно во всех отношениях. 

Авторы выражают глубокую благодарность 
Г. С. Кудрявцевой, О. Н. Колесниковой и М. Б. Округину 
за помощь в подготовке рукописи. Отзывы о книге 
и предложения можно направлять по адресу: 191065, 
Ленинград, ул. Дзержинского, 10, ЛО издательства 
«Машиностроение». 



Глава 1 


ВВЕДЕНИЕ В ФОРТ 


1.1 Основные понятия 

Приступая к изучению нового для нас языка 
программирования, мы прежде всего задаемся вопро¬ 
сами: какие конструкции есть в этом языке (какова 
морфология), как они записываются (каков синтаксис) 
и что означают (какова семантика). Например, в широ¬ 
ко распространенном языке Паскаль имеется около 
двадцати конструкций (идентификатор, число без 
знака, присваивание, условный оператор и др.), син¬ 
таксис которых обычно задают с помощью граф-схем 
или порождающих правил, а семантику объясняют на 
основе той или иной машиннонезависимой модели вы¬ 
числений. Часть языка ассемблера любой ЭВМ, пред¬ 
назначенная для записи машинных команд, содержит 
по одной конструкции на каждую команду. Запись такой 
конструкции обычно представляет отдельную строку 
и состоит из мнемонического обозначения команды 
и размещения операндов, а семантика определяется 
в терминах реальных действий, которые данная команда 
выполняет над ячейками памяти, регистрами и другими 
компонентами архитектуры ЭВМ. 

Язык Форт больше всего похож на язык ассем¬ 
блера. Его синтаксис также максимально прост. Запись 
каждой конструкции (команды) состоит из одного 
слова — мнемонического обозначения, в качестве кото¬ 
рого может выступать последовательность любых литер, 
не содержащая пробела. Простота синтаксиса является 
следствием того, что в качестве вычислительной модели 
используется стековая машина. Слова-команды этой 
машины снимают необходимые операнды со стека 
и оставляют свои результаты (если они есть) также 
на стеке. Таким образом, программа, написанная на 
языке Форт, выглядит как последовательность слов, 
каждое из которых подразумевает выполнение тех или 
иных действий. Слова разделяются любым числом про¬ 
белов и переходов на новую строку; ограничение накла- 


7 



дывается только на длину слова — оно должно содер¬ 
жать не более 31 литеры. Стандарт языка определяет 
сравнительно небольшой набор из 132 «обязательных» 
слов. Среди них есть слова, позволяющие определять 
новые через уже имеющиеся и тем самым расширять 
исходный набор слов-команд в нужном для данной 
задачи направлении. Некоторые часто требующиеся 
расширения включены в стандарт в качестве «стандарт¬ 
ных расширений» обязательного набора слов. 

Вычислительная модель, лежащая в основе язы¬ 
ка Форт, состоит из адресного пространства оператив¬ 
ной памяти объемом до 64 К байт, терминала и поля 
внешней памяти на магнитных дисках объемом до 32 К 
блоков по 1 К байт каждый. В пределах имеющегося 
адресного пространства располагаются стек данных 
и стек возвратов, словарь, буфер для ввода с терминала 
и буфера для обмена с внешней памятью. 

Стек данных обычно располагается в старших 
адресах оперативной памяти и используется для пере¬ 
дачи параметров и результатов между исполняемыми 
словами. Его элементами являются двухбайтные 
значения, которые в зависимости от ситуации могут 
рассматриваться различным образом: как целые числа 
со знаком в диапазоне от —32768 до +32767, как адре¬ 
са оперативной памяти в диапазоне от 0 до 65535 (отсю¬ 
да ограничение 64 К на размер адресного простран¬ 
ства), как коды литер (диапазон зависит от принятой 
кодировки) для обмена с терминалом, как номера 
блоков внешней памяти в диапазоне от 0 до 32767 или 
просто как 16-разрядные двоичные значения. В процессе 
исполнения слов значения помещаются на стек и сни¬ 
маются с него. Переполнение и исчерпание стека, как 
правило, не проверяется; его максимальный объем 
устанавливается реализацией. Стандарт предусматри¬ 
вает, что стек растет в сторону убывания адресов; это 
согласуется с аппаратной реализацией стека в большин¬ 
стве ЭВМ, которые ее имеют. 

Стек возвратов по своей структуре аналогичен 
стеку данных, но используется особым образом некото¬ 
рыми стандартными словами (подробнее об этом см. 
в гл. 2). 

Начальную часть адресного пространства обычно 
занимает словарь (иначе «кодофайл») —хранилище 
слов и данных. По мере расширения исходного набора 
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слов словарь растет в сторону увеличения адресов. Спе¬ 
циальные слова из обязательного набора позволяют 
управлять вершиной словаря — поднимать и опус¬ 
кать ее. 

Наряду со стеком данных и стеком возвратов в 
старших адресах оперативной памяти обычно раз¬ 
мещается буфер на 64-100 байт для построчного ввода 
форт-текста с терминала и буферный пул для обмена 
с внешней дисковой памятью размером от 1 до 3 и бо¬ 
лее К байт. Доступ к этим буферам и фактический обмен 
осуществляют специальные слова из обязательного 
набора. 

1.2. Работа в диалоговом режиме 

Программирование на языке Форт является 
существенно диалоговым. Работая за терминалом, 
программист вводит слова-команды, а загруженная 
в память ЭВМ форт-система, т. е. реализация языка 
Форт на данной ЭВМ, немедленно выполняет обознача¬ 
емые этими словами действия. О своей готовности к об¬ 
работке очередной строки текста форт-система обычно 
сообщает программисту специальным приглашением 
(например, знаком * , который печатается на терми¬ 
нале). Получив такое приглашение, программист наби¬ 
рает на терминале очередную порцию форт-текста, 
заканчивая ее специальным управляющим символом 
(например, нажимая клавишу «Ввод» или «Перевод 
строки»). Получив сигнал о завершении ввода, форт- 
система начинает обработку введенного текста (он раз¬ 
мещается в буфере для ввода с терминала), выделяя 
в нем слова-команды и исполняя их. Успешно обработав 
весь введенный текст, форт-система вновь приглашает 
программиста к вводу, и описанный цикл диалога пов¬ 
торяется. Многие форт-системы после успешного завер¬ 
шения обработки выводят на терминал подтверждаю¬ 
щее сообщение (обычно ОК — сокращение от англий¬ 
ского о'кау — все в порядке). Если во время обработки 
введенного текста выявляется какая-либо ошибка 
(например, встретилось неизвестное форт-системе 
слово), то на терминал выводится поясняющее со¬ 
общение, обработка введенного текста прекращается 
и форт-система приглашает программиста к вводу 
нового текста. 
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Для завершения работы обычно предусматриваются 

специальные слова-команды. 

Непосредственно вводить с терминала большие 
форт-тексты неудобно, поэтому их хранят во внешней 
памяти на дисках, а с терминала программист вводит 
только слова-команды, отсылающие форт-систему 
к обработке тех или иных блоков из внешней памяти. 
Для создания и исправления форт-текстов во внешней 
памяти используется текстовый редактор, который явля¬ 
ется специализированным расширением форт-системы. 


1.3. Стек данных и вычисления 

Как уже говорилось, в основе вычислительной 
модели для языка Форт лежит стековая машина. Ее 
команды (слова в языке Форт) обычно используют 
в качестве своих операндов верхние элементы стека, 
убирая их со стека и возвращая результаты (если они 
есть) на место операндов. Как правило, слова исполь¬ 
зуют одно-два верхних значения на стеке. Для их опи¬ 
сания будем применять следующую диаграмму: 

имя вершина стека 8о -> вершина стека после 

слова исполнения слова исполнения слова 

При этом считаем, что самое верхнее значение в стеке 
(последнее добавленное) находится справа. 

Для работы с собственно вершиной стека имеют¬ 
ся следующие слова: 

сир а —-> а,А 

скор а ---> 

ОѴЕР А,В ---> А,В,А 
РОТ А,В,С - —> В,С,А 
ВНАР А,В ---> В,А 

Слово ЭЕ1Р (от ОЮРЫСАТЕ — дублировать) дубли¬ 
рует вершину стека, добавляя в стек еще одно значение, 
равное тому, которое было до этого верхним. Слово 
ОКОР (сбросить) убирает верхнее значение. Слово 
ОѴЕК (через) дублирует значение, лежащее на стеке 
непосредственно под верхним. Слово КОТ (от КОТА- 
ТЕ — вращать) циклически переставляет по часовой 
стрелке три верхних значения в стеке. Наконец, слово 
ЗШАР (обменять) меняет местами два верхних зна¬ 
чения. 
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Можно работать с любым элементом стека с го» 
мошью слов 

РІСК Ап,Ап-1,...Ао , п > Ап , Ап-1,...Ао,Ап 

РОИ Ап , Ап-1 у • •. АО'П —> Ап-1,...Ао,Ап 

Слово РІСК (взять) дублирует п -й элемент стека 
(считая от нуля), так что О РІСК равносильно ЭРФ, 
а 1 РІСК равносильно ОѴЕК. Слово КОРЬ (повер¬ 
нуть) циклически переставляет п верхних элементов 
стека (тоже считая от нуля) по часовой стрелке, так 
что 2 КОЬЬ равносильно КОТ, 1 КОРЬ равносильно 
5\ѴАР, а О КОРР является пустой операцией. 

Чтобы «увидеть» верхнее значение на стеке, ис¬ 
пользуется слово, (точка) А, которое снимает 
значение с вершины стека и печатает его на терминале 
как целое число в свободном формате (т. е. без ведущих 
нулей и со знаком минус, если число отрицательно). 
Вслед за последней цифрой числа слово-точка выводит 
один пробел, чтобы выводимые подряд числа не слива¬ 
лись в сплошной ряд цифр. Если программист хочет, 
чтобы напечатанное значение осталось на стеке, он 
должен исполнить текст ОІФ . . Слово ОРФ создаст 
копию верхнего значения, а точка ее распечатает и 
уберет со стека. 

Перечисленные выше слова работают со значе¬ 
ниями, уже находящимися в стеке. А как занести зна¬ 
чение в стек? Язык Форт имеет следующее замечатель¬ 
ное правило умолчания: если введенное слово форт- 
системе не известно, то прежде чем сообщать програм¬ 
мисту об ошибке, форт-система пытается понять это 
слово как запись числа. Если слово состоит из одних 
цифр с возможным начальным знаком минус, то ошиб¬ 
ки нет: слово считается известным и его действие 
состоит в том, что данное число кладется на вер¬ 
шину стека. 

Теперь у нас достаточно средств, чтобы привести 
примеры диалога. Рассмотрим следующий протокол 
работы: 


>567 

ОК 

> 8ИАР . 

6 7 5 ОК 

> 




В ответ на приглашение к вводу (знак :> , печатаемый 
системой) программист вводит три числа: 5, 6 и 7. 
Обрабатывая введенный текст, форт-система кладет эти 
числа в указанном порядке на стек и по завершении 
обработки выводит подтверждающее сообщение ОК 
и вновь приглашает программиста к вводу. Далее про¬ 
граммист вводит текст из четырех слов: 5\ѴАР и три 
точки. Исполняя эти слова-команды, форт-систсма ме¬ 
няет местами два верхних элемента стека (5, 6, 7->- 
5, 7, б,) и затем поочередно три раза снимает верхнее 
значение со стека и печатает его. В результате на тер¬ 
минале появляется текст 6 7 5 и сообщение ОК, указы¬ 
вающее на завершение обработки, после чего система 
вновь выдает программисту приглашение на ввод. 

Для внешнего представления чисел используется 
система счисления, задаваемая программистом. Стан¬ 
дарт языка предусматривает следующие слова для 
переключения в наиболее общеупотребительные сис¬ 
темы: 


ОЕСІМАІ. —> 

НЕХ ---> 

О С Т А Ь —> 


десятичная 

шестнадцатиричная 

восьмеричная 


Первоначально устанавливается десятичная система. 
Если в процессе работы будет исполнено, например, 
слово НЕХ (от НЕХАОЕСІМАЬ — шестнадцатирич¬ 
ная), то при дальнейшем вводе и выводе чисел будет 
использоваться шестнадцатиричная система с цифрами 
от 0 до 9 и от А до Р до тех пор, пока основание системы 
счисления не будет вновь изменено. Внутренним же 
представлением чисел является обычный двоичный 
дополнительный код, применяемый в большинстве 
существующих ЭВМ. 

Слова-команды, выполняющие арифметические 
операции над числами, являются общепринятыми ма¬ 
тематическими обозначениями: 


♦ 

А,В 

-> 

сумма А+8 

- 

А,В 


ревность А"В 

* 

А,В 

— > 

проиввеѲекие А*В 

/ 

А,В 

— > 

частное от А/В 

N00 

А | В 

— > 

остаток от А/В 

/МОО 

А,В 

—-> 

остаток от А/В, частное от 

АВ8 

А 

—-> 

абсолютная величина А 


А/В 
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МЕѲАТЕ 

А 

— > 

значение с 

обратным знаком 

1 + 

А 

— > 

А+1 


1- 

А 

— > 

А-1 


2+ 

А 

—-> 

А+2 


2- 

А 

— > 

А-2 


2/ 

А 

— > 

частное от 

А/2 


При сложении, вычитании и умножении не учитывается 
возможность переполнения, в случае его возникновения 
используются младшие 16 разрядов результата. Такая 
арифметика называется арифметикой по модулю 65536 
(2 в степени 16); ее основное достоинство состоит в том, 
что она дает одинаковые в двоичном представлении 
результаты независимо от того, как понимаются опе¬ 
ранды: как числа со знаком в диапазоне от —32768 
до +32767 или как числа без знака в диапазоне от О 
до 65535. 

Операции деления / , МСЮ и /МСЮ рассматри¬ 
вают свои операнды как числа со знаком. Из нескольких 
известных математических определений деления с ос¬ 
татком (которые по-разному трактуют случаи, когда 
операнды имеют разные знаки или оба отрицательны) 
язык Форт использует так называемое деление с нижней 
границей : остаток имеет знак делителя или равен 
нулю, а частное округляется до его арифметической 
нижней границы («пола») [11]. Во многих ЭВМ, имею¬ 
щих аппаратную реализацию деления, применяются 
другие правила для определения частного и остатка, 
однако это обычно не вызывает трудностей при прог¬ 
раммировании, поскольку самый важный случай с 
неотрицательными операндами все определения трак¬ 
туют одинаково. 

При выполнении деления возможно возникновение 
ошибочной ситуации, если делитель — нуль или 
частное не умещается в 16 разрядов (переполнение, 
возникающее при делении —32768 на —1). 

Одноместные операции АВ8 и ^ОАТЕ игнорируют 
переполнение, возникающее в том единственном слу¬ 
чае, когда операндом является число —32768, воз¬ 
вращая в качестве результата 0. 

Наконец, одноместные операции 1+ ,1— ,2+ , 
2— выполняют действие, отраженное в их мнемонике: 
увеличение или уменьшение значения на вершине стека 
на 1 или 2; аналогично слово 2/ возвращает частное 
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от деления своего параметра на 2. Эти слова включены 
в стандарт ввиду частного использования соответ¬ 
ствующих действий. 

Использование стека для хранения промежуточ¬ 
ных значений естественным образом приводит к так 
называемой « обратной польской форме» — одному из 
способов бесскобочной записи арифметических выра¬ 
жений, подразумевающему постановку знака операции 
после операндов. Например, выражение (А/В + С) * 
(Э*Е — Р*(0 — Н)) записывается следующим образом: 
АВ/С + ОЕ*РОН — * — * . Очевидно, что этот 
текст выполним для Форта, если А, В и т. д.— слова, 
которые кладут на стек по одному числу. Таким обра¬ 
зом, форт-систему можно использовать как калькуля¬ 
тор. Чтобы вычислить, например, значение (25+18 + 
+ 32) * 5, достаточно ввести такой текст: 25 18 + 
+ 32 + 5*.. В ответ система напечатает (исполняя 
точку) ответ —375. 

Чтобы повысить точность вычислений в последо¬ 
вательности умножение — деление, стандарт предус¬ 
матривает два необычных слова: 

*/ А,В,С •> частное от <А*8/С) 

♦ /НОВ А,В,С ) остаток, частное от (А * В/С) 

Особенность этих слов состоит в том, что промежуточ¬ 
ный результат А*В вычисляется с двойной точностью 
и в качестве делимого для С используются все его 32 
разряда. Окончательные же результаты являются 
16-разрядными числами. 

Наряду с описанной выше 16-разрядной арифме¬ 
тикой, язык Форт имеет полный набор средств для 
работы с 32-разрядными целыми числами через стан¬ 
дартное расширение двойной точности. Внутренним 
представлением таких чисел является 32-разрядный 
двоичный дополнительный код, представляющий их как 
числа со знаком в диапазоне от —2147483648 до 
+ 2147483647 или как числа без знака в диапазоне 
от 0 до 4294967295. При размещении в стеке число 
двойной точности занимает два элемента: верхний — 
старшая половина, предыдущий — младшая. Такое рас¬ 
положение делает простым переход от двойной точности 
к обычной через слово ЭКОР . Расширение двойных 
чисел включает следующие слова: 
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2ВР0Р АА ---> 

20иР АА ---> АА,АА 

20ѴЕК АА,ВВ ---> АА,ВВ,АА 
2Р0Т АА т ВВ |СС —> ВВ ,СС, АА 
2БМАР АА ,ВВ ---> ВВ, АА 

0. АА ---> 

0+ АА * В В ---> сумма АА + ВВ 

0 - АА,ВВ > рааность АА-ВВ 

ОАВЗ АА > абсолютная величина АА 

0ЫЕ6АТЕ АА ---> число с овратным знаком -АА 

Здесь обозначение типа АА подчеркивает, что значение 
занимает два элемента стека. Хотя стандартное рас¬ 
ширение этого не предусматривает, во многих реализа¬ 
циях языка Форт этот ряд продолжают операции 
умножения и деления: 

0* АА,В В-> произвевение АА* В В 

О/ АА,ВВ —> частное от АА/ВВ 

ОМОВ АА 9 ВВ-> остаток от АА/ВВ 


Операндами и результатами перечисленных слов 
являются значения двойной длины, занимающие по два 
элемента стека каждый; это обстоятельство отражено 
в мнемонике, начинающейся с цифры 2, когда два 
элемента стека выступают как одно целое, или с буквы 
Э (от слова ООІШЬЕ — двойной), когда речь идет 
об арифметическом значении двойной длины. 

Следующие два слова являются переходными меж¬ 
ду арифметическими операциями одинарной и 
двойной точности; их мнемоника включает букву М 
(от слова МІХ — смесь) и V (от слова ІЖЗІСЖЕЭ — 
беззнаковый): 

іш а, в —> сс 

им/моо АА,в —> с,в 

Слово ІІМ* перемножает операнды А и В как 16-раз- 
рядные числа без знака, возвращая все 32 разряда по¬ 
лучившегося произведения. Слово ЕІМ/МСЮ рассмат¬ 
ривает 32-разрядное делимое АА и 16-разрядный 
делитель В как числа без знака и возвращает получаю¬ 
щиеся 16-разрядные остаток С и частное В. Если де¬ 
литель — нуль или частное превышает 65535, то это 
рассматривается как ошибка. Для перехода к двойной 
точности с учетом знака многие реализации имеют слово 
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5>0А~^АА, которое расширяет исходное число А 
до числа двойной точности распространением знакового 
разряда. 

Чтобы при вводе различать числа двойной и оди¬ 
нарной точности, в сформулированное выше правило 
умолчания внесена оговорка: если не найденное в сло¬ 
варе слово состоит только из цифр с возможным началь¬ 
ным знаком минус, то это число одинарной точности, 
а если в слово входят точки (в любом месте), то это 
число двойной длины. Пример использования форт- 
системы как калькулятора для работы с числами двой¬ 
ной длины представляет следующий протокол работы: 

> 1234567. 7654321. 0+ 0. 

8888868 0К 

В ответ на приглашение (знак >> ) программист вводит 
два числа двойной длины, операцию сложения этих 
чисел и операцию печати результата. Выполняя ука¬ 
занные действия, форт-система печатает ответ (заметь¬ 
те, что он уже не содержит точки) и подтверждающее 
сообщение ОК. 

1.4. Введение новых слов 

Замечательное свойство языка Форт — это воз¬ 
можность вводить в него новые слова, расширяя тем 
самым набор его команд в нужном программисту 
направлении. Для введения новых слов чаще всего 
используется определение через двоеточие — опреде¬ 
ление нового слова через уже известные. Такое опре¬ 
деление начинается словом : (двоеточие) и заканчи¬ 
вается словом ; (точка с запятой). Сразу после двоето¬ 
чия идет определяемое слово, а за ним — последова¬ 
тельность слов, через которые оно определяется. Напри¬ 
мер, текст : 52 ОСІР * 5\ѴАР ОІІР * + ; определяет 
слово 52, вычисляющее сумму квадратов двух чисел, 
снимаемых с вершины стека 52 А,В -»■ А**2 + В**2 . 
После ввода данного описания слово 52 можно испол¬ 
нять и включать в описания других слов. При создании 
таких определений рекомендуется тщательно коммен¬ 
тировать все изменения стека. Слово ( (открывающая 
круглая скобка) отмечает начало комментария; все 
следующие литеры до первой ) (закрывающей скобки) 
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считаются комментарием и при обработке вводимого 
форт-тскста пропускаются. 

Перепишем приведенное выше определение сло¬ 
ва 52, показывая состояние вершины стека после 
исполнения каждой строки: 

: В2 ( А, В ---> А**2+В**2 сумма квадратов) 
вир < А, В,В) 

* 5НАР < В##2,А) 

вир * < В##2,А**2) 

+ ( А**2+В**2) 


По-видимому, минимальным требованием к до- 
кументированности определения следует считать за¬ 
дание начального и конечного состояний вершины 
стека при работе слова. 

Рассмотрим подробнее работу форт-системы во вре¬ 
мя определения новых слов. Мы уже знаем, что получив 
от программиста очередную порцию входного текста, 
форт-система выделяет в ней отдельные слова и ищет их 
в своем словаре. Эту работу выполняет текстовый ин¬ 
терпретатор форт-системы. Если слово в словаре не най¬ 
дено, то текстовый интерпретатор пытается понять его 
как число, используя описанное выше правило умолча¬ 
ния. Если слово найдено или оказалось записью числа, 
то дальнейшие действия интерпретатора зависят от его 
текущего состояния. В каждый момент времени тексто¬ 
вый интерпретатор находится в одном из двух состоя¬ 
ний: в состоянии исполнения или в состоянии компиля¬ 
ции. В состоянии исполнения найденное слово исполня¬ 
ется (т. е. выполняется действие, составляющее его 
семантику), а число кладется на стек. Если же интерпре¬ 
татор находится в состоянии компиляции, то найденное 
слово не исполняется, а компилируется, т. е. включается 
в создаваемую последовательность действий для опре¬ 
деляемого в данный момент слова. Найденное и скомпи¬ 
лированное таким образом слово будет исполнено 
наряду с другими такими словами во время исполнения 
определенного через них слова. Если требуется скомпи¬ 
лировать число, то текстовый интерпретатор компили¬ 
рует особый литеральный код, который во время 
исполнения положит значение данного числа на стек. 

Проследим за работой текстового интерпретатора 
по обработке уже рассмотренного определения слова 
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: 82 ЭІІР * 5\УАР ІЗІІР * + ; . Предположим, что 
перед началом обработки введенной строки интер¬ 
претатор находится в состоянии исполнения. Первым 
словом является: (двоеточие), которое исполняется. 
Его семантика состоит в том, что из входной строки 
выбирается очередное слово и запоминается в качестве 
определяемого, а интерпретатор переключается в сос¬ 
тояние компиляции. Следующие слова, которые интер¬ 
претатор будет извлекать из входной строки ( ЭІІР , * , 
8\ѴАР и т. д.), будут компилироваться, а нс исполнять¬ 
ся, так как интерпретатор находится в состоянии ком¬ 
пиляции. В результате с определяемым словом 82 
связывается последовательность действий, отвечающая 
этим словам. Процесс выделения и компиляции слов 
будет продолжаться до тех пор, пока не встретится ; 
(точка с запятой). Это слово особенное, оно имеет так 
называемый «признак немедленного исполнения». 
Слова с таким признаком исполняются независимо от 
текущего состояния текстового интерпретатора, поэ¬ 
тому точка с запятой будет вторым исполненным словом 
после двоеточия. Семантика точки с запятой заключает¬ 
ся в том, что построение определения, начатого двое¬ 
точием, завершается и интерпретатор вновь переключа¬ 
ется в состояние исполнения. Поэтому после ввода 
определения слова 82 мы тут же можем проверить, 
как оно работает на конкретных значениях: 

> 5 4 52 . 

41 ОК 

Слова с признаком немедленного исполнения (другим 
примером такого слова помимо точки с запятой является 
открывающая круглая скобка — начало комментария) 
выполняются по-разному в зависимости от состояния 
текстового интерпретатора. Некоторые из них даже 
используются только в одном из этих состояний. Поэто¬ 
му на диаграмме для таких слов будем отмечать эти 
случаи, специально указывая состояние компиляции 

( ---> 

-> (компиляция) 

Слово ( в обоих состояниях действует одинаково: 
пропускает все следующие вводимые литеры до закры¬ 
вающей круглой скобки включительно или до конца 
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введенной строки, если закрывающая скобка отсут¬ 
ствует. 

Слово ; допустимо применять только в состоянии 
компиляции: ; (компиляция). Оно завершает постро¬ 
ение нового определения и переключает текстовый ин¬ 
терпретатор в состояние исполнения. 

Слово ІММЕЭІАТЕ (немедленный) -> устанавлива¬ 
ет признак немедленного исполнения для последнего 
определенного слова. (Подробнее использование этого 
признака рассматривается в п. 1.7.) 

Введенные слова можно исключить из словаря с по¬ 
мощью слова ЕОКОЕТ (забыть) -ѵ , которое выбирает 
из входной строки следующее слово и исключает его из 
словаря вместе со всеми словами, определенными 
позже. 

Разберем следующий протокол диалога: 

> 22 *. 

4 ок 

> і 2 3 | 

ОК 

>22*. 

9 ОК 

> ГОЯѲЕТ 2 
ОК 

> 22 *. 

4 ОК 

Сначала программист вычисляет произведение от ум¬ 
ножения 2 на 2 и получает ответ 4. Введя затем опре¬ 
деление слова 2 как числа 3, он в дальнейшем получает 
уже другой ответ. Исключив это определение слова 
2 через ГОРОЕТ , он возвращается к прежней семан¬ 
тике слова 2. 

В процессе работы текстового интерпретатора про¬ 
граммист может переключать его из состояния ком¬ 
пиляции в состояние исполнения и обратно с помощью 
слов | (открывающая квадратная скобка) ->■ и ] (за¬ 
крывающая квадратная скобка) -*■ . Слово [ имеет 
признак немедленного исполнения и переключает интер¬ 
претатор в состояние исполнения, а слово ] переключает 
его в состояние компиляции. Обычно эти слова исполь¬ 
зуются внутри определения через двоеточие, чтобы 
вызвать исполнение слова или группы слов, не имеющих 
признака немедленного исполнения. Например, если 
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в тексте определения понадобилась константа РРОО 
(в шестнадцатиричной системе), а текущей исполь¬ 
зуемой системой является десятичная, то было бы не¬ 
правильно включить в текст определения фрагмент ІІЕХ 
РРОО ЭЕСІМАЕ, поскольку слово МЕХ будет нс вы¬ 
полнено, а скомпилировано и число нс будет воспринято 
правильно. Вместо этого следует писать: [ НЕХ ] 
РРОО [ ОЕСІМАЬ ] . В языке есть и другие способы, 
чтобы выразить это же более точно и красиво. 

Еще один пример дает использование слова ІЛТЕ- 
КАЕ (литерал), имеющего признак немедленного ис¬ 
полнения, внутри определения через двоеточие. Оно 
используется в виде: [ (значение) ] ІЛТЕКАЬ , где 
(значение) —слова, вычисляющие на вершине стека 
значение, которое словом ІЛТЕРАЕ будет скомпилиро¬ 
вано в код как число. Во время исполнения определения 
это значение будет положено на стек. Таким образом, 
текст [22*] ІЛТЕКАЕ внутри определения через 
двоеточие эквивалентен употреблению слова-числа 4. 
Это дает большие возможности для использования 
констант, «вычисляемых» во время компиляции опре¬ 
деления. Аналогичное соответствие имеет место и вне 
определения через двоеточие, поскольку в состоянии 
исполнения слово ЫТЕКАЬ нс выполняет никаких 
действий, и поэтому на стеке остается вычисленное 
перед этим значение. 

1.5. Константы и переменные, работа с памятью 

Программисту часто бывает удобно работать 
не с «анонимными» значениями, а с именованными. По 
аналогии со средствами других языков эти средства 
языка Форт называются константами и переменными. 
Впоследствии мы увидим, что они являются не «изна¬ 
чальными», а (наряду с определениями через двоето¬ 
чие) частными случаями более общего понятия «опре¬ 
деляющие слова». 

Слово ССЖ5ТАМТ (константа) А -»■ работает сле¬ 
дующим образом. Со стека снимается верхнее значе¬ 
ние, а из входного текста выбирается очередное слово 
и запоминается в словаре как новая команда. Ее дей¬ 
ствие состоит в следующем: поместить на стек значе¬ 
ние А, снятое со стека в момент ее определения. На¬ 
пример, 4 СОХ т 5ТАМТ ХОР . В дальнейшем при испол- 
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нении слова ХОР число 4 будет положено на стек. 

Слово ѴАКІАВЬЕ (переменная) А резервирует 
в словаре два байта, а из входного потока выбирает 
очередное слово и вносит его в словарь как новую ко¬ 
манду, которая кладет на стек адрес зарезервирован¬ 
ной двухбайтной области. Можно сказать, что пере¬ 
менная работает, как константа, значением которой 
является адрес зарезервированной двухбайтной об¬ 
ласти. 

Работа с переменной помимо получения ее адреса 
состоит в получении ее текущего значения и присваи¬ 
вании нового. Для этого язык Форт имеет следующие 
слова: 


* А — > В 
! В,А —> 

Слово @ (читается «разыменовать») снимает со стека 
значение и, рассматривая его как адрес области опе¬ 
ративной памяти, кладет на стек двухбайтное зна¬ 
чение, находящееся по этому адресу. Обратное дей¬ 
ствие выполняет слово ! (восклицательный знак, чи¬ 
тается «присвоить»), которое снимает со стека два 
значения и, рассматривая верхнее как адрес области 
оперативной памяти, засылает по нему второе снятое 
значение. Эти слова можно использовать не только для 
переменных, но и для любых адресов оперативной па¬ 
мяти. Следующий протокол работы показывает поря¬ 
док использования переменной в сочетании с этими 
словами: 


> VАР I АВІЕ XIX! 

ок 

> X о . 

1 ок 

> X 3 N Е Ѳ А Т Е X ! X 3 . 

-1 ОК 

В первой строке определяется переменная X, и ей при¬ 
сваивается начальное значение 1. Затем текущее зна¬ 
чение переменной X распечатывается. После этого те¬ 
кущее значение меняется на противоположное по знаку 
и вновь распечатывается. 

Полезным вариантом слова ! является слово +! 
(плюс-присвоить) N. А -*■ , которое увеличивает на N 
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значение, находящееся в памяти по адресу А. Несмотря 
на то, что это'слово легко выразить через и ! : 

: +! ( N, А —> ) пир в РОТ + БИАР ! [ 


оно включено в обязательный набор слов. 

Слова, определенные через СОМ8ТАМТ и ѴЛКІ- 
АВСЕ , - такие же равноправные слова форт-системы, 
как и определенные через двоеточие. Их также можно 
использовать в определениях других слов и исключать 
из словаря словом ЕОКОЕТ. 

Для работы со значениями двойной длины имеются 
слова 


2С0№ТАИТ 

АА 

— > 

2ѴАРІАВІЕ 


— > 

20 

А 

---> ВВ 

2! 

ВБ,А 

— > 


из стандартного расширения двойных чисел. При раз¬ 
мещении в памяти такие значения рассматриваются 
как пары смежных двухбайтных значений одинарной 
длины: сперва (в меньших адресах) располагается 
старшая половина, затем (в больших адресах) млад¬ 
шая. Адресом значения двойной длины считается адрес 
его старшей половины. 

Константы и переменные позволяют программисту 
использовать память в словаре вполне определенным 
образом. Л как быть, если требуется что-то иное? Об¬ 
щий принцип языка Форт состоит в том, чтобы не за¬ 
крывать от программиста даже самые элементарные 
единицы, из которых строятся его более сложные сло¬ 
ва, а предоставлять их наравне с другими словами. 
Элементарными словами для работы с памятью в сло¬ 
варе, помимо приведенных выше @ и ! , являются сле¬ 
дующие: 


НЕ РЕ —> А 

А1Л0Т А —> 

. А —> 

Предполагается, что словарь занимает некоторую на¬ 
чальную часть адресного форт-пространства и у него 
имеется указатель текущей вершины (словарь растет 
в сторону увеличения адресов). Слово ПЕНЕ (здесь) 
возвращает текущее значение указателя (адрес первого 
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свободного байта, следующего за последним занятым 
байтом словаря). 

Слово АЕЕОТ (распределить) резервирует в сло¬ 
варе область памяти, размер которой (в байтах) сни¬ 
мает со стека. Резервирование состоит в том, что теку¬ 
щее значение указателя изменяется на заданную ве¬ 
личину, поэтому при положительном значении запроса 
память отводится вплотную от вершины словаря, а при 
отрицательном значении запроса происходит освобо¬ 
ждение соответствующего участка памяти. Наконец, 
слово , (запятая) выполняет так называемую «компи¬ 
ляцию» значения, снимаемого со стека: значение пе¬ 
реносится на вершину словаря, после чего указатель 
вершины продвигается на 2 (размер в байтах скомпи¬ 
лированного значения). Некоторые из приведенных 
слов легко выражаются через другие: 

: , < А —> ) НЕРЕ * 2 А1Л0Т ( 

: 2Ѳ ( А ---> ВВ) ОІІР 2 + в ВЫАР в | 

Такая избыточность позволяет программисту быстрее 
находить нужные ему решения и делает программы 
бол ее удобоч ита е м ы м и. 

А как создать в словаре поименованную область 
памяти? Можно завести область и связать ее адрес 
с именем через описание константы: ИННЕ ЮЛЕИОТ 
СОХ8ТАХТХ10. Слово НЕКЕ оставляет на стеке ад¬ 
рес текущей вершины словаря, затем при исполнении 
текста ІОЛЕИОТ от этой вершины резервируется 
10 байт, после чего слово СОХЗТЛХТ связывает адрес 
зарезервированной области с именем Х10. В дальней¬ 
шем при исполнении слова Х10 этот адрес будет по¬ 
ложен на стек. 

Другой возможный путь состоит в использовании 
слова СЕНАТЕ (создать) —в таком контексте: СЕНА¬ 
ТЕ Х10 10 ЛЕЬОТ . Слово СЕНАТЕ , подобно слову 
ѴАЕІАВНЕД выбирает из входной строки очередное 
слово и определяет его как новую команду с таким 
действием: положить на стек адрес вершины словаря 
на момент создания этого слова. Поскольку следующие 
действия в приведенном примере резервируют память, 
то слово Х10 будет класть на стек адрес зарезервиро¬ 
ванной области. Очевидно, что слово ѴАКІЛВНН мож¬ 
но выразить через СЕР’АТЕ 
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і ѴАЯІАВІ.Е < —> ) СЯЕАТЕ 2 АІЛОТ | 

или иначе (если мы хотим инициализировать нулем 
значение создаваемой переменной): 

а ѴАКІАВІ.Е ( ---> ) СВЕАТЕ 0 , | 

(Другой аспект использования слова СКЕАТЕ рас¬ 
сматривается в п. 1.10). 

В стандарте определен ряд системных переменных, 
к которым программист может свободно обращаться, 
в том числе ЗТАТЕ (состояние) -»■ А и ВАЗЕ (осно¬ 
вание) А . Исполнение каждого из этих слов за¬ 
ключается в том, что на стеке оставляется адрес ячей¬ 
ки, в которой хранится значение данной переменной. 

Переменная ЗТАТЕ представляет текущее состоя¬ 
ние текстового интерпретатора: нуль для исполнения 
и не нуль (обычно —1) для компиляции. Поэтому вся 
реализация слов [ и ] , переключающих интерпретатор 
из одного состояния в другое, сводится к одному при¬ 
сваиванию: 

* С < ---> ) 0 ЗТАТЕ ! ; ІММШАТЕ 
I 1 ( - —> ) -1 ЗТАТЕ ! | 

Переменная ВАЗЕ хранит текущее основание си¬ 
стемы счисления для ввода — вывода чисел, поэтому 
реализация слов для установки стандартных систем 
выглядит так: 

I ОЕСІМАІ. ( "“> > 10 ВАЗЕ ! ) 

, НЕХ < —> ) 16 ВАЗЕ ! » 

Отсюда следует более изящный способ кратковремен¬ 
ной смены системы счисления во. время компиляции 
определения: [ ВАЗЕ @ НЕХ [ РРОО [ ВАЗЕ ! ] . Сна¬ 
чала на стеке запоминается текущее основание, и си¬ 
стема счисления переключается на основание 16, в ко¬ 
тором и воспринимается следующее число РРОО, после 
чего восстанавливается прежнее основание. А как уз¬ 
нать текущее основание системы счисления? Испол¬ 
нение текста ВАЗЕ @ не поможет, поскольку ответом 
всегда будет 10 (почему?). Правильный ответ даст 
исполнение текста ВАЗЕ @ ОЕСІМАЬ . , в результате 
чего значение основания будет напечатано как число 
в десятичной системе. Еще более правильным было бы 
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использовать текст ВА8Е @ 01.Ф ОЕСІМАЬ . ВА8Е 
< , который после печати основания в десятичной систе¬ 
ме восстанавливает его прежнее значение 

1.6. Логические операции 

В языке Форт имеется только один тип значе¬ 
ний — 16-разрядные двоичные числа, которые, как мы 
видели, рассматриваются в зависимости от ситуации 
как целые числа со знаком или как адреса и т. д. Точно 
так же подходят и к проблеме представления логиче¬ 
ских значений ИСТИНА и ЛОЖЬ: число 0, в двоичном 
представлении которого все разряды нули, представ¬ 
ляет значение ЛОЖЬ, а любое другое 16-разрядное 
значение понимается как ИСТИНА. Вместе с тем стан¬ 
дартные слова, которые должны возвращать в каче- 
тве результата логическое значение, из всех возмож¬ 
ных представлений значения ИСТИНА используют 
только одно: число — 1 (или, что то же самое, 65535), 
в двоичном представлении которого все разряды еди¬ 
ницы. Такое соглашение связано с тем, что традицион¬ 
ные логические операции конъюнкции, дизъюнкции 
и отрицания выполняются в Форте поразрядно над 
всеми шестнадцатью разрядами операндов: 


АМО 

х> 

ш 

1 

1 

1 

Ч*' 

А 

В 

логическое 

И 

ок 

А,В —-> 

А 

в 

логическое 

или 

ХОК 

А,В —> 

А 

в 

исключающее 

или 

йот 

А ---> 

Л 

А 

логическое 

НЕ 


Как и в предыдущих случаях, эти операции нс явля¬ 
ются независимыми: операция отрицания (пораз¬ 
рядное инвертирование) легко выражается через 
исключающее ИЛИ (поразрядное сложение по мо¬ 
дулю два): 

і N01 (А —> Л А ) -1 хок | 

Нетрудно увидеть, что для принятого в Форте стан¬ 
дартного представления значений ИСТИНА и ЛОЖЬ 
все эти слова работают, как обычные логические 
операции. 

Логические значения возникают в операциях срав¬ 
нения, которые входят в обязательный набор слов и име¬ 
ют общепринятую программистскую мнемонику: 
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< 

А 

іВ 

---> 

А 

< 

В 

меньше 

9 

А 

іВ 

---> 

А 

3 

в 

равно 

> 

А 

,в 

— > 

А 

> 

в 

больше 


Эти операции снимают со стека два врехних значения, 
сравнивают их как числа со знаком (операция «равно» 
выполняет поразрядное сравнение) и возвращают ре¬ 
зультат сравнения как значение ИСТИНА и ЛОЖЬ 
в описанном выше стандартном представлении. Из-за 
стремления к минимизации обязательного набора опе¬ 
раций в него не включены слова для операций сме¬ 
шанного сравнения, поскольку их легко выразить через 
уже имеющиеся: 


і < = 

( 

А 

,в 

-> 

А 

< » 

В ) 

5І4АР < 

N01 

1 

: > = 

( 

А 

іВ 


А 

> = 

В ) 

БЫ АР > 

N01 

1 

: О 

( 

А 

іВ 

—-> 

А 

< > 

В ) 

а N01 1 




Для сравнения 16-разрядных чисел без знака имеется 
слово И с Л,В —А < В . Эта операция обычно ис¬ 
пользуется для сравнения адресов, которые лежат 

в диапазоне от 0 до 65535. Буква I! (от НХБЮХЕІ) . 

беззнаковый) в ее мнемонике говорит о том, что опе¬ 
ранды рассматриваются как числа без знака. 

Ввиду частого использования и возможности не¬ 
посредственной реализации на многих существующих 
ЭВМ в обязательный набор слов включены одномест¬ 
ные операции сравнения с нулем: 

о< а -—> а < о 

0= А ---> А а о 

0> А -"> А > 0 

При этом слово 0= можно использовать вместо ХОТ 
как операцию логического отрицания, и в отличие от 
\ОТ оно будет правильно работать при любых пред¬ 
ставлениях логического значения ИСТИНА. 

Описанные выше двухместные операции сравнения 
естественным образом выражаются через сравнения 
с нулем: 


1 

< 

( 

А, 

В 

---> 

А 

< 

В ) 

- 0< 

1 

1 

• 

В 

( 

А, 

В 

---> 

А 

= 

В ) 

- 0 8 

! 

I 

> 

< 

А, 

В 

---> 

А 

> 

В ) 

- 0> 
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Стандартное расширение двойных чисел имеет 
аналогичные слова для сравнения 32-разрядных зна- 


00 = 

АА 

-- - 

> АА 

= 0 


0< 

АА 

,ВВ 

---> 

АА < 

ВВ 


АА 

,вв 

---> 

АА = 

ВВ 

ои< 

АА 

,вв 

---> 

АА < 

ВВ 


Слова IX и 1)1,1 < различаются тем, что первое рас¬ 
сматривает свои операнды как числа со знаком, а вто¬ 
рое - как числа без знака. Для слов Е)0= и 0= такое 
различие несущественно, их, например, можно опре¬ 
делить так: 

І 00» ( АА ---> АА 8 0 ) ОВ 0« | 

і 0= < АА,В В ---> АА - ВВ ) 0- 00= | 

Слово ОН (логическое ИЛИ) в определении слова 
1)0 — логически складывает старшую и младшие поло¬ 
вины исходного 32-разрядного значения. Нулевой ре¬ 
зультат будет получен тогда и только тогда, когда 
исходное значение было нулевым. Следующее слово 
0 преобразует этот результат к логическому значению 
в стандартном представлении. Исполнение слова І) = 
состоит в вычислении разности его операндов в срав¬ 
нении этой разности с нулем. 

1.7. Структуры управления 

Во всех приводившихся выше определениях слов 
ісло определения записывалось как последователь¬ 
ность уже известных слов-команд; семантика опреде¬ 
ляемого таким образом слова состоит в последователь¬ 
ном выполнении слов-команд тела. Помимо после¬ 
довательного исполнения традиционными приемами 
в программировании стали ветвление (выбор между 
разными последовательностями действий) и цикл (мно¬ 
гократное повторение одной последовательности дей¬ 
ствий). 

В языке Форт тоже имеются условные операторы 
и циклы, реализованные с помощью специальных слов- 
команд, которые легко выражаются через другие, более 
элементарные слова (см. гл. 2). Это открывает путь 
к реализации таких вариантов структур управления, 
которые больше всего подходят для данной задачи, 
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что даст программисту широкие возможности для соз¬ 
дания новых структур управления. 

Стандарт языка предусматривает ряд слов для 
построения условных операторов и циклов в некотором 
конкретном виде. Эти слова используются внутри опре¬ 
делений через двоеточие и разделяют тело определения 
на отрезки. Действия, соответствующие словам из этих 
отрезков, выполняются, не выполняются или выполня¬ 
ются многократно в зависимости от условий, проверя¬ 
емых во время выполнения данного определения. Ус¬ 
ловные операторы и циклы могут свободно вклады¬ 
ваться друг в друга. 

Условный оператор строится с помощью слов: 


ІР 

А —> 

(исполнение) 

Е1.5Е 

— > 

(исполнение) 

ТНЕИ 

% 

— - > 

(исполнение) 


Внутри определения через двоеточие отрезок текста 
ІР (часть-то) ЕЬ8Е (часть-иначе) ТНЕN задает сле¬ 
дующую последовательность действий. Слово ІР (если) 
снимает значение с вершины стека и рассматривает 
его как логическое. Если это ИСТИНА (любо$5Ьулевое 
значение), то выполняется часть «то»—слова, нахо¬ 
дящиеся между ІР и ЕЬ8Е , а если ЛОЖЬ (равно 
нулю), то исполняется часть «иначе» — слова между 
ЕЬ8Е и ТНЕМ . Сами слова ЕЬ8Е (иначе) и ТНР^ (то) 
играют роль ограничителей для слова ІР и самостоя¬ 
тельной семантики не имеют. Часть «иначе» вместе со 
словом ЕЕ8Е может отсутствовать, и тогда условный 
оператор имеет сокращенную форму ІР (часть-то) 
ТНЕХ . Если логическое значение, снимаемое со стека 
словом ІР, ИСТИНА, то выполняются слова, состав¬ 
ляющие часть «то», а если ЛОЖЬ, то данный оператор 
не выполняет никаких действий. Обратите внимание, 
что условие для слова ІР вычисляется предшествую¬ 
щими словами. 

Для примера рассмотрим определение слова АВ8, 
вычисляющего абсолютное значение числа: 

і АР5 ( А - — >абс А) ОиР 0< ІР N56АТЕ ТНЕМ ; 

Слово ЭИР дублирует исходное значение, следующее 
слово 0<С проверяет его знак, заменяя копию на ло¬ 
гическое значение — результат проверки. Слово ІР 
снимает со стека этот результат, и если это ИСТИНА, 
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іо лежащее на стеке исходное отрицательное значение 
(_. Л оі 5 ом ХЕОАТЕ заменяется на противоположное. 

Рлце пример: стандартное слово ?01;Р дублирует 
,,грміее значение, если это не ноль, и оставляет стек 
л исходном состоянии, если на вершине ноль: 

: ?0ЫР ( А ---> А,А/0 ) 01)Р ІР ОиР ТНЕЫ ; 

р, спецификации данного слова косая черта разделяет 
: і;;і варианта результата, который это слово может 
• ставить на стеке. Примером использования полного 
условного оператора может служить определение слова 
- О , расширяющего исходное значение до зна- 
'тііия двойной длины распространением знакового 
низряда: 

і 3>0 (А ---> АА ) 

пир 0< ІР -1 Е Ь БЕ О Т НЕМ | 

Это слово добавляет в стек — 1 , если число па вершине 
стека отрицательно, или 0 в противном случае. Таким 
образом, выполняется распространение знакового раз¬ 
ряда па старшую половину значения двойной точности. 

В стандарт языка Форт включены циклы с условием 
и циклы со счетчиком. Циклы первой группы образу¬ 
ются с помощью слов 


ВЕ0 ІН 

-> 

(исполнение) 

ІШИ 

А —> 

(исполнение) 

ЫНИЕ 

А - —> 

(исполнение) 

РЕРЕАТ 

---> 

(исполнение) 


и имеют две формы: 

ВЕ6ІЫ <Г9Л0> имш 

ВЕ 61N < тело-1 > ЫНИЕ <тело-2> РЕРЕАТ 

В обоих случаях цикл начинается словом ВЕСІХ (на¬ 
чать), которое служит открывающей скобкой, отме¬ 
чающей начало цикла, и во время счета не выполняет 
никаких действий. 

Цикл ВЕСІХ — ІЛХТІЬ называется циклом с провер¬ 
кой в конце. После исполнения слов, составляющих 
его тело, на стеке остается логическое значение — усло¬ 
вие завершения цикла. Слово ИХНЬ (пока не) снимает 
это значение со стека и анализирует его. Если это ИСТИ¬ 
НА (не нуль), то исполнение цикла завершается, т. е. 
далее будут исполняться слова, следующие за УМИЬ , 
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а если это ЛОЖЬ (нуль), то управление возвращается 
к началу цикла от слова ВЕСІМ . Например, опреде¬ 
ление слова, вычисляющего факториал, может выгля¬ 
деть так: 


ФАКТОРИАЛ ( N N 

! БЫ 

ЧИСЛЕНИЕ 

N 

ФА*ГОР 

И А Л) 

пир 2 

< ІР 0Р0Р 1 

( 1 


ЕСЛИ 

N<2 

, га N 

■ = 1) 


Е1.5Е 

( N 


ИНАЧЕ 



) 

ОІіР 


< 5, 

К 

Б = 

N0- 

-м 

) 

БЕЗ IN 


< 5, 

К 




) 


1- 

< 5, 

К ’ 

К ' 

5 К - 

1 

) 


5ЫАР ОѴЕР 

( К ' 

,5 

Д" 



) 


* ЙНАР 

! 5' 

,к 

5 ' 

* 

СП 

и 

К ' 

) 


ОУР 1 = 

< Б' 

Л 

Д =1 



) 

0 N Т I і. 


( 5' 

И 

5 ' 



) 

РОГ Т И Е N ; 

{ N ! 





\ 

1 


Как и ранее, в комментариях, сопровождающих каж¬ 
дую строчку текста, мы указываем значения, которые 
остаются на вершине стека после ее исполнения. Такое 
документирование облегчает понимание программы 
и помогает при ее отладке. 

Цикл с проверкой в начале ВНОІМ — \ѴНІЕЕ — 
РЕРЕАТ используется, когда в цикле есть действия, 
которые не надо выполнять в заключительной итерации. 
Исполнение слов, составляющих его тело-1, оставляет 
на стеке логическое значение — условие продолжения 
цикла. Слово \ѴНІЕЕ (пока) снимает это значение со 
стека и анализирует его. Если это ИСТИНА (не пуль), 
то исполняются слова, составляющие тело-2 данного 
цикла до ограничивающего слова КЕРЕАТ (повто¬ 
рять), после чего вновь исполняется тело-1 от слова 
ВЕСІМ. Если же значение условия ЛОЖЬ (нуль), 
то исполнение данного цикла завершается и начинают 
выполняться слова, следующие за РЕРЕАТ . Заметьте, 
что в отличие от цикла ВЕСІМ-Ь’МТІЕ , значение ИС¬ 
ТИНА соответствует продолжению цикла. Для примера 
рассмотрим программу вычисления наибольшего об¬ 
щего делителя по алгоритму Евклида: 


} НОД ( А,В С: НАИБОЛЬШИЙ ОБШИИ ДЕЛИТЕЛЮ 


200Р < 

ІР БИАР ТНЕМ 

( 

ТЕПЕРЬ А > = В 

) 

ВЕ6 IN 

ДІІР 

( 

А , В т Б ) 


ИННЕ 


( 

ПОКА Б НЕ НОЛЬ 

) 


201ІР МОО 

( 

А,В,С:ОСТАТОК 

) 
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кот 

СКОР 


( В,С,А ) 

1 А ,В' А'=В,В'= С) 

< НОС) 


РБРЕАТ ОК0Р ■ 

Для организации циклов с целочисленной пере¬ 
чной счетчиком цикла —используются слова 


00 

А,В 

---> 


(исполнение) 

ЮОР 


— > 


(исполнение) 

+ Ю0Р 

А 

— > 


(исполнение) 

I 


---> 

А 

(исполнение) 

0 


---> 

А 

(исполнение) 

ІЕАѴЕ 


---> 


(исполнение) 


Такие циклы записываются в одной из следующих двух 
■Торм: IX) (тело) РООР или 1)0 (тело) + ЬООР . 
\\ обоих случаях цикл начинается словом 00 (делать), 
которое снимает со стека два значения: начальное (на 
■аршине стека) и конечное (второе сверху) — и запо¬ 
минает их. Текущее значение счетчика полагается рав- 
*:!лм начальному значению, после чего исполняются 
’ова, составляющие тело цикла. Слово І_ООР увели¬ 
чивает текущее значение счетчика на единицу и про¬ 
веряет условие завершения цикла. В отличие от него, 
'■лево + РООР прибавляет к текущему значению счет- 
»чка значение шага, которое вычисляется на стеке те- 
,лч цикла и рассматривается как число со знаком. 
С обоих случаях условием завершения цикла является 
неросечение границы между А—1 и А при переходе от 
прежнего значения счетчика к новому (направление 
ж рехода определяется знаком шага), где А --конеч¬ 
на значение, снятое со стека словом ОС). 

Пели пересечения не произошло, то тело цикла 
исполняется вновь с новым значением счетчика в ка- 


щѵгве текущего. 

Такое определение позволяет рассматривать исход¬ 
ные параметры цикла (начальное и конечное значения) 


н как числа со знаком, и как числа без знака (адреса). 
Например, текст 10 0 00 (тело) ИООР предписывает 
выполнить тело цикла 10 раз со значениями счетчика 
0. !, 2, ..., 9, а в случае 0 10 00 (тело) ПООР тело цик- 
■'іа будет исполнено 65 526 раз со значением счетчика 
ІО, 11, 32 767, -32 768, -32 767, ..., -1 или (что 


то же самое) со значениями счетчика 10, 11, ..., 65 535. 
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в то же время цикл 0 10 00 / Т ело\ і . г 

исполняться 11 раз ( а „е іт Г ~ + В°ОР будет 

9, .... О, поскольку перс СІ е нио ЗИаЧСНИЯМИ счетчика 

и 0 произойдет при передо™ от' Т Ра " ИЦЫ Межд У ~ 1 

К следующему значению 3 | Л п° 3 ^ чени я счетчика О 

+ ШОР буд'е, и™ | »«.0° <»»> -I 

счетчика 0, — ] _о о« ѵ - Р аз со зиаче ниямп 

Таким ТО оГ ЖС ' СаМОС) °'’ 6 5 53^ 65 534, 32 , 7 ш 7 : ‘° 

ХОТЯ бы один М ра Ц 3 ИК НсТоторІ№ К0М ВС ° ГДа вы,ІОЛ »яется 
ривают слово ?00 , котопое реализации предусмат- 

ни разу, если начальное и граничной ТеЛ ° ЦИКЛа 
лись одинаковыми. Р Чное значения оказа- 

значение 3 счетчик^^агфимец 1 ^ Ладет на стек тек УШее 

вычисляет сумму ква/шатпв’ след У ющее определение 
чисел: У У Вадратов первых п натуральных 


532 ( м 

О 5НАР 
1+ 1 

00 і 

ОІІР * 
ЮОР | 


Бг СУММА КВАДРАТОВ ОТ 1 до щ> 

< 0, N 

* 5С03,N+1,1 

< 5СІ-п,І 

* I 5СІЗ 8С11-1 3 + І*і ) 

< 5 С N 2 ) 


ЗС02*0 ) 
) 
) 


вызывает прск^ащейие 'испола™ "его °" УТр " щ ' ыа ’ 

ЯГИВГ « ва° сіІЖр 

в»я В ч ;Г 7 Х"е Р чГбыв Ч „ а в™у т ': Р Г™”"- “''"рук- 

лг а , ^ г/т 

- 1 -ООР . Первое вхождение слова Т а,Г* - Ш0Р - ' 
чеиие счетчика внешнего 1 V тек Ушче она- 
пне I дает уже значение ц ла - Следующее вхожде- 

Чтобы получить 'счетчик внетп ИКа В,іутренисго «икла. 
зовать слово 3. внешнего цикла, надо исполь- 

значению вновь Дает^Тово °Этим 3 1 1 овГГ\, К | ЭТ ° Му 

программи р І (щщни ? з П * Ы Не*котор і щ ? ^ре ' и 11 и0нн ых языках 

сматривают еще и слово К для доейтшг'^ Прсду ’ 
третьего объемлющего цикла * У а к счетчик У 
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1.8. Литеры и строки, форматный вывод чисел 


В современном программировании важное место 
занимает обработка текстовых данных. С каждой ли¬ 
тером, которую можно ввести с внешнего устройства 
или вывести на него, связывается некоторое число - 
код згой литеры, так что в памяти ЭВМ литеры пред¬ 
ставлены своими кодами. Стандарт языка Форт преду¬ 
сматривает использование таблицы кодов АЗСІІ, в ко¬ 
торой задействованы все числа в диапазоне от 0 до 127. 
Каждый код занимает один 8-разрядный байт, в ко¬ 
тором для представления литеры используются млад¬ 
шие 7 разрядов. 


Такая привязка к одной конкретной кодировке не 
является существенным препятствием к использованию 
других, если сохраняется условие, что код литеры за¬ 
нимает один байт. В применяемых в нашей стране форт- 
система х помимо АЗСII применяются коды КОИ-7, 
КОИ-8, ДКОИ и другие. 

Для доступа к однобайтным значениям, располо.- 
жеішым в памяти, используются словаС@А-*В 
и С! В,А-*- , которые аналогичны словам @ и ! . Пре¬ 
фикс С (от слова СНАНАСТНК — литера) говорит 
о том, что эти слова работают с литерными кодами (од¬ 
нобайтными значениями). 

Слово С@ возвращает содержимое байта по адресу 
А, дополняя его до 16-разрядного значения нулевыми 
разрядами. Обратное действие выполняет слово С! , 
которое засылает младшие 8 разрядов значения В 
в память по адресу А. 

Для политерного обмена с терминалом стандарт 
предусматривает такие слова: 


КЕѴ —> А 

ЕМ I Т А - —> 

ск ---> 

ТУРЕ А,N - — > 

ЕХРЕСТ А,N —-> 


Слово КЕУ (клавиша) возвращает в младших раз¬ 
рядах значения А — код очередной литеры, введенной 
с терминала. В отличие от слова С@ старшие разряды 
зависят от реализации и могут быть ненулевыми. Об¬ 
ратное действие выполняет слово ЕМ ГГ (испустить), 
которое снимает значение со стека и, рассматривая его 

2 Зак. № 572 


33 



младшие разряды как код литеры, выводит эту литеру 
на терминал. Специальное слово СР (сокращение от 
САКРІАСіЕ РЕТЕРХ -- возврат каретки) выполняет 
перевод строки при выводе па терминал. 

Расположенные в памяти побайтно коды литер 
образуют строку, которою можно напечатать на терми¬ 
нале словом ТУРЕ (напечатать). Это слово снимает со 
стека число количество литер (оно должно быть 
неотрицательно) и адрес начала строки (ее первого 
байта); 


ТVРЕ ( А, N ---> ) ?П11Р ІР 0 00 

оцр I + се ЕИIТ ЮОР ТНЕИ 0Р0Р 


Если число литер равно пулю, то ничего не печатается. 

Обратное действие --- ввод строки литер — вы¬ 
полняет слово ЕХРЕСТ (ожидать), которое снимает 
со стека длину и адрес области памяти для размещения 
вводимых литер. Коды литер, последовательно вводи¬ 
мых с терминала, помещаются в указанную область 
до тех нор, пока не будет введено заданное число литер 
или не будет введена управляющая литера «возврат 
каретки» (код этой литеры в память не заносится). 
Фактическое число введенных литер сообщается в 
стандартной переменной $РАі\ (размер), эти литеры 
к тому же отображаются на терминале. 

Ввиду его особой важности для кодирования про¬ 
бела выделена специальная константа ВЕ (от 
ВЕАМК—пробел), которую для кода А50ІІ можно 
задать так: 32 СОМЗТАХІТ ВЕ. При исполнении слова 
ВЕ на стеке остается код пробела. Чтобы вывести 
пробел на терминал, имеются следующие стандартные 
слова: 


: 5РАСЕ ( — -> ) Ві. ЕМIТ \ 

: 8РАСЕ5 < N--->1 ?0иР ІР 0 00 ВРАСЕ ЮОР ТНЕМ | 

Слово 5РАСЕ (пробел) выводит на терминал один 
пробел, а слово 8РАСЕ8 (пробелы) — несколько, 
снимая их количество со стека (это значение, как и 
длина строки в слове ТУРЕ, должно быть неотрица¬ 
тельным ). 

Внутри определений через двоеточие можно ис¬ 
пользовать явно заданные тексты для вывода их на 
терминал. При исполнении слова (точка и кавычка), 
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употребленного в контексте текст ", следующие за 
ним литеры до закрывающей кавычки исключительно 
печатаются на терминале. Пробел, отделяющий сло¬ 
во в число печатаемых литер не входит. Другое 
слово .( (точка и скобка) отличается от тем, что 
ограничителем текста является закрывающая правая 
скобка, и это слово можно использовать как внутри 
определений, так и вне их. 

Помимо строки.поля байт, длина которого задает¬ 

ся отдельно — язык Форт использует строки со счет¬ 
чиком. Строка со счетчиком представляется полем байт, 
причем в первом байте записана длина строки. Стан¬ 
дарт не определяет форму представления счетчика 
длины, оставляя решение этого вопроса на усмотрение 
разработчиков конкретной реализации. Для перехода 
от строки со счетчиком к строке с явно заданной длиной 
имеется слово СОІ-ХТ (счетчик) Л —► В,Х' , которое 
преобразует адрес Л строки со счетчиком в адрес В 
ее первой литеры (обычно это Л+ 1) и значение счетчи¬ 
ка. Строки со счетчиком используются при вводе слов 
из входной строки. Стандартное слово М'ОІД) (слово) 
С—> А снимает со стека код литеры-ограничителя и вы¬ 
деляет из входной строки подстроку, ограниченную 
этой литерой (начальные вхождения литеры-ограни¬ 
чителя пропускаются). Из выделенной подстроки фор¬ 
мируется строка со счетчиком, адрес которой воз¬ 
вращается в качестве результата. Слова-команды 
языка Форт вводятся исполнением текста ВЬ \ѴОКЭ, 
а текстовая строка в слове — исполнением текста 
(Д’ОТС ѴѴОКО , где слово РСОТВ — константа, 
обозначающая код кавычки. Литеры введенной строки 
обычно располагаются вслед за вершиной словаря, 
т. е. в незащищенном месте, и поэтому их нужно как- 
то защитить, если предполагается их дальнейшее ис¬ 
пользование. Некоторые реализации предусматривают 
слово' 7 (кавычка), которое используется внутри опре¬ 


деления через двоеточие и во время его 
кладет на стек адрес следующей строки 


исполнения 
как строки 


со счетчиком. Это позволяет работать с явно заданными 


текстами. 


Чтобы программист мог задавать коды литер, не 
связывая себя конкретной кодировкой, во многие 
реализации введено слово С" , которое кладет на стек 


код первой литеры следующего слова и может исполь- 


2 * 
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зоваться как внутри определения через двоеточие, так 
и вне его: 

і с ( — > с ) ы иояо соіш СКОР 

С« ССОМРИЕЗ І.ІТЕЙАІ. I ІММЕОІАТЕ 

Исполнение текста ВЬ ШОК О СОСІМТ О КОР С@ ос¬ 
тавляет на стеке код первой литеры следующего слова. 
Далее этот код нужно либо скомпилировать как число, 
либо оставить на стеке в зависимости от текущего 
состояния текстового интерпретатора. Для этого ис¬ 
пользуется уже известное нам слово ЬІТЕКАЬ . Однако 
включить его непосредственно в текст нельзя, так как 
это слово имеет признак немедленного исполнения и бу¬ 
дет исполняться во время компиляции данного опреде¬ 
ления. Чтобы скомпилировать слово с признаком не¬ 
медленного исполнения, используется слово [СОМРІ- 
ЬЕ] (от СОМРІЬЕ — компилировать) ->■ (компиля¬ 
ция), которое само имеет такой признак. Оно при¬ 
нудительным образом компилирует следующее за ним 
слово независимо от наличия у него признака немедлен¬ 
ного исполнения. Таким образом, ввод строки, ограни¬ 
ченной кавычкой, с помощью слова С" можно задать 
так: С" " \ѴОКО . Такой текст более нагляден, чем 
тот, в котором используется конкретный код или обо¬ 
значающая его константа. 

Важной областью применения строковых значений 
являются форматные преобразования, позволяющие 
переводить число из машинного двоичного представле¬ 
ния в строку литер. Эти преобразования выполняются 
над числами двойной длины, результирующая строка 
размещается во временном буфере РАО (прокладка), 
который заполняется с конца. Такое название буфера 
связано с тем, что он располагается в незащищенной 
части адресного пространства между словарем и сте¬ 
ком. Слово РАО кладет на стек адрес конца этого 
буфера и обычно определяется так: 

I РАО ( —> А ) НЕКЕ 100 + I 

В данном случае предполагается, что размер буфера 
не будет превышать 100 байт. 

Собственно форматное преобразование начинается 
словом С # , которое устанавливает служебную пере¬ 
менную НЬЭ на конец буфера РАО: 
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і <# ( — > ) РАО НЮ I | 

Занесение очередной литеры в буфер РАО выполняет 
слово НОІЛ) (сохранить): 

і НОЮ ( С — > ) -1 НЮ +! НЮ О С! ( 

Преобразование числа выполняет слово ПП1 —-► 
002, которое работает со значениями двойной длины. 
Параметр делится на текущее значение переменной 
ВЛ8Н (основание системы счисления) и заменяется на 
стеке получившимся частным, а остаток переводится в 
литеру соответствующую ему как цифра в данной си¬ 
стеме счисления, и через слово НОВО эта литера добав¬ 
ляется в буфер РАО. Полный перевод числа выполняет 
слово #8: 

1 «В (00 --->0,0) ВЕѲ IN » 20ЫР 00» 1ШП ) 

которое выделяет цифры числа последовательным 
делением, пока не получится нуль. Наконец, слово 

завершает форматное преобразование, воз¬ 
вращая адрес и длину получившейся текстовой строки: 

I #> (00 ---> А'Ю 20К0Р НЮ » РАО ОѴЕЙ - | 

Для вывода знака «минус» имеется слово 5Ю\ (знак): 

I ВІ0И ( А —> ) 0< ІР С - НОЮ ТНЕИ | 

которое добавляет в.буфер РАО знак «минус», если 
параметр на вершине стека (число одинарной точности) 
отрицателен. 

С помощью перечисленных средств легко определить 
стандартные слова I). и .для печати чисел и в свобод¬ 
ном (минимальном) формате: 


I 0. ( 

00 — 

-> ) 


20ЦР 

0АВ8 

( 

00,ООАВВ ) 

<» 

«г 

( 

00,0,0 ) 


кот 

( 

о-мл,о,о,о-ст ) 


ВІѲН 

( 

0-МЛ, 0,0 ) 

*> 


( 

О-МЦА.Н ) 

ТУРЕ 

ВРАСЕ 

0Й0Р 

1 

і . ( N 

1 ---> 

) В>0 

0. 1 


Слово I). сначала переводит абсолютное значение ис¬ 
ходного числа в строку литер, потом добавляет к ней 
возможный знак «минус», анализируя для этого стар- 
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шую половину первоначального значения, и затем 
печатает получившуюся строку, выводя после нее еще 
один пробел. Слово . дополняет свой параметр до зна¬ 
чения двойной длины распространением знакового 
разряда и обращается к слову О. для печати получив¬ 
шегося числа. Аналогичным образом реализуются 
стандартные слова О.К и .К , которые печатают число 
в поле заданного размера вплотную к его правому краю 
(отсюда в их мнемонике присутствует буква К от 
ККйНТ правый), добавляя при необходимости на¬ 
чальные пробелы: 

і О.В ( 00:ЧИСЛО,Г і РАЗМЕР ПОЛЯ ---> ) 


ОѴЕЯ 

25ЫАР С’нВБ 


( 0-СТ,Р,00,ЮАВ6) 

<# 

«5 ВОТ БПШ 

*> 

( Р, А, N ) 

ВОТ 

ОѴЕВ - 


( А,N,Р-А ) 

оир 

0> ІР БРАСЕБ 

ЕІ»БЕ 

ОБОР ТНЕИ ТУРЕ | 

( 

БИАР 

Мв ЧИСЛО,Р:РАЗМЕР 
В>0 0.В | 

ПОЛЯ —> ) 


В заключение рассмотрим программу шестнадцати¬ 
ричной распечатки областей памяти словом ОІ'МР 
(дамп), которое получает на стеке адрес области и ее 
длину: 


оимр ( А: АЙРЕС, № ДЛИНА ---> 

ОѴЕВ ВАЗЕ Ѳ НЕХ 25ИАР 

) 

( 

А,В, А 

.М> 

+ ВОТ 

-2 АМО 

( 

В, А + N 

!,А) 

00 I 

<» С" * НОЮ 

( 

В,АІ 

) 

0 15 

оо оир і + 

( 

В|АІ, 

АІ + Л 

С@ 

0ЕС00Е НОЮ -1 +Ю0Р 

< 

В«АI 

) 


С" * ною 

< 

В, АI 

) 

0 И 

оо ві ною оир і + 

( 

В.АІ, 

АІ + 0) 

С 0 

# # 20В0Р "2 +Ю0Р 

( 

Б,61 

) 

ВІ- ною 

ВІ ною 0 * # « » #> 

< 

в 4 ат. 

N1) 


СИ ТУРЕ І6 Н00Р ВАЗЕ ! | 

Внешний цикл с шагом 16 формирует и печатает тексто¬ 
вую строку. Первый внутренний цикл с шагом —1 за¬ 
сылает в буфер РАО литерные значении, соответствую¬ 
щие распечатываемым байтам. Здесь слово ОЕСО- 
ІЗЕ С->-С/С1 заменяет код С на некоторый код С1 
(например, код литеры «точка»), если он не является 
кодом литеры, которую можно напечатать на данном 
терминале. Второй внутренний цикл с шагом - -2 за¬ 
сылает в буфер четыре шестнадцатиричные цифры — 
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представления двухбайтных значений, разделяя их 
одним пробелом. Далее в буфере РАО (т. е. в начале 
строки) формируется адрес тоже в виде четырехзнач¬ 
ного числа. Перед началом работы устанавливается 
шестнадцатиричная система счисления, а в конце вос¬ 
станавливается первоначальная. Следующий протокол 
работы показывает результат исполнения слова ОСМР 
в конкретном случае: 

> 1000 40 ЦЦМР 

ОЗЕй 03С0 ОН Ш А220 0003 4520 А390 07РА 

03Г8 04С5 Ш Е300 03Е4 0402 9180 А331 4760 «.ЕНІТ..Ц. ЛЦГ..Ц» 

0408 А4І4 45Е0 А230 0004 4520 А37А 9180 АЗЗО Ю...5.ШЦМ (Ж 

Обратите внимание, что адреса и значения байтов на¬ 
печатаны в шестнадцатиричной системе. Точки в литер¬ 
ном представлении байтов заменяют литеры, которые 
не могут быть напечатаны. 

1.9. Определяющие слова 

Конструкции языка Форт, которые мы рас¬ 
сматривали до сих пор, имеют аналоги в других извест¬ 
ных языках программирования. Например, определению 
через двоеточие очевидным образом соответствует 
описание процедуры в языках Фортран и Паскаль. 
Теперь мы рассмотрим свойство языка Форт, которое 
существенно отличает его от других и в значительной 
степени определяет его как нечто новое. 

Программируя какую-либо задачу, мы моделируем 
понятия, в которых эта задача формулируется и реша¬ 
ется, через понятия данного языка программирования. 
Традиционные языки имеют определенный набор по¬ 
нятий (процедуры, переменные, массивы, типы данных, 
исключительные ситуации и т.д.), с помощью которых 
программист должен выразить решение исходной за¬ 
дачи. Этот набор выразительных средств фиксирован 
в каждом языке, но поскольку он содержит такие 
универсальные средства, как процедуры и типы дан¬ 
ных, то опытный программист может смоделировать 
любые необходимые ему понятия программирования. 

Язык Форт предлагает вместо фиксированного на¬ 
бора порождающих понятий единый механизм порожде¬ 
ния таких порожающих понятий. Таким образом, при¬ 
ступая к программированию задачи на языке Форт, 
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программист определяет необходимые ему понятия 
и с их помощью решает поставленную задачу. Такое 
прямое введение в язык нужных для данной задачи 
средств вместо их моделирования (часто весьма слож¬ 
ного) через имеющиеся универсальные средства умень¬ 
шает разрыв между постановкой задачи и ее програм¬ 
мной реализацией. Это упрощает понимание и отладку 
программы, так как в ней более наглядно проступают 
объекты и отношения исходной задачи, и вместе с тем 
повышает ее эффективность, так как вместо сложного 
моделирования понятий задачи через универсальные 
используется их непосредственная реализация через 
элементарные. 

Новые понятия вводятся посредством определения 
через двоеточие, в теле которого используются слова 

СРЕАТЕ -—> 

ООЕ6> -> (компиляция) 

---> А (исполнение) 

Рассмотрим уже известное нам слово СОХ5ТАМТ 
(константа), которое используется для определения 
констант. Его определение можно задать так: 

I С0М8ТАМТ < N ---> ) СРЕАТЕ , 00Е8> в | 

Часть определения от слова СКЕАТЕ до ЭОЕ5> на¬ 
зывается создающей (СКЕАТЕ — создать), остальная 
часть от слова І)ОЕ$> и до конца называется ис¬ 
полняющей (ЭОЕ5 — исполняет). В данном случае 
создающая часть состоит из одного слова , (запятая), 
а исполняющая часть— из слова @ (разыменование). 

Рассмотрим исполнение данного определения на 
примере 4 СОХ5ТАМТ ХОР. Слово 4 кладет число 4 на 
стек. Далее исполняется слово СОХ8ТАХТ . Слово 
СКЕАТЕ , с которого начинается его определение, вы¬ 
бирает из входной строки очередное слово (в данном 
случае ХОР) и добавляет его в словарь как новую ко¬ 
манду. Создающая часть, состоящая из слова «запя¬ 
тая», переносит число 4 в память, компилируя его на 
вершину словаря. Слово ООЕ$;> , отмечающее конец 
создающей части, завершает исполнение данного опре¬ 
деления, при этом семантикой созданного слова ХОР 
будет последовательность действий исполняющей 
части, начиная от слова ООЕ$> . В дальнейшем 
исполнение слова ХОР начнется с того, что слово 


40 



ООЕ$> положит на стек адрес вершины словаря, 
какой она была па момент начала работы создающей 
части, после чего будет работать исполняющая часть 
определения. Поскольку поданному адресу создающая 
часть скомпилировала число 4, то исполняющая 
часть — разыменование — заменит на стеке этот адрес 
его содержимым, т. е. числом 4, что и требуется по смы¬ 
слу данного понятия. 

Рассмотрим другой пример. Введем понятие вектора. 
При создании вектора будем указывать размер (число 
элементов), а при обращении к нему — индекс (номер) 
элемента, в результате чего получается адрес данного 
элемента. Этот адрес можно разыменовать и получить 
значение элемента или можно заслать по этому адресу 
новое значение. Если желательно контролировать пра¬ 
вильность индекса при обращении к вектору, то опре¬ 
деление может выглядеть так: 

) ВЕКТОР < Ы:РАЗМЕР->) СРЕАТЕ ОЧР , 2* А1Л0Т 

00Е5> < I с ИНДЕКС,А->АЕIЭ> АДРЕС ЗЛ-ТА I) 

ОѴЕР 1- ОѴЕР Ѳ и< ( ПРОВЕРКА ИНДЕКСА) 

1Р БИАР 2* + ЕХІТ ТНЕN 

." ОШИБКА В ИНДЕКСЕ" АБОРТ ) 

Разберем, как работает данное определение при соз¬ 
дании вектора 10 вектор X. 

Создающая часть компилирует размер вектора 
и вслед за этим отводит память на 10*2, т. е. 20 байт. 
Таким образом, для вектора X в словаре отводится 
область размером 22 байта, в первых двух байтах 
которой хранится число 10—размер вектора. При 
обращении к вектору X на стеке должно находиться 
значение индекса. Слово ІЮЕ$> кладет сверху адрес 
области, сформированной создающей частью, после 
чего работает исполняющая часть определения. Про¬ 
верив, что индекс 1 лежит в диапазоне от 1 до 10, она 
ославляет на стеке адрес, равный начальному адресу 
области плюс 1*2, т. е. адрес І-го элемента вектора, если 
считать, что элементы располагаются в зарезервирован¬ 
ной области подряд. Слово ЕХІТ (выход) завершает 
исполнение определения, что позволяет обойтись без 
части «иначе» в условном операторе. Если окажется, 
чіо индекс не положителен или больше числа элементов, 
то будет напечатано сообщение «ошибка в индексе» 
словом , и исполнение закончится через слово АВОКТ 


41 



(выброс). Если по каким-либо причинам контроль ин¬ 
дексов не нужен, можно дать более краткое опре¬ 
деление: 

і ВЕКТОР ( N1 РАЗМЕР —> ) СКЕЙТЕ 2 * АШОТ 
00 Е 5 > < I к ИНДЕКС,А — > АС 11 г АДРЕС ЭЛ-ТА I) 

БИАР 1- 2 » + ; 

Если мы условимся считать индексы не от единицы, 
а то нуля, то исполняющая часть еще более сократится 
за счет исключения слова I — для уменьшения значения 
индекса на единицу. 

Таким образом, программист может реализовывать 
варианты понятий, наиболее подходящие для его за¬ 
дачи. Исходный небольшой набор слов-команд форт- 
системы он может избирательно наращивать в нужном 
направлении, постоянно совершенствуя свой инстру¬ 
ментарий. 

Используемый в языке Форт способ введения опре¬ 
деляющих слов связан с очень важным понятием - 
частичной параметризацией . Определяющее слово за¬ 
дает целый класс слов со сходным действием, которое 
описывается исполняющей частью определяющего сло¬ 
ва. Каждое отдельное слово из данного класса характе¬ 
ризуется результатом исполнения создающей части — 
тем или иным содержимым связанной с ним области 
памяти, адрес которой передается исполняющей части 
как параметр. Таким образом, исполняющая часть — 
то общее, что характеризует данный класс слов,— во 
время ее исполнения частично параметризуется резуль¬ 
татом исполнения создающей части для данного отдель¬ 
ного представителя этого класса. Как создающая часть, 
так и частично параметризованная исполняющая часть, 
могут требовать дополнительных параметров для своего 
исполнения (в примере для вектора это размер вектора 
и индекс). Все это представляет программисту практи¬ 
чески неограниченную свободу в создании новых по¬ 
нятий и удобных инструментальных средств. 



Глава 2 РЕАЛИЗАЦИЯ И РАСШИРЕНИЯ 


2.1. Шитый код и его разновидности 


Логически можно выделить два подхода к реали¬ 
зации языков программирования--трансляцию и ин¬ 
терпретацию [ 10]. Транслятор преобразует входной 
текст программы в машинный код данной ЭВМ; впослед¬ 
ствии этот код, объединяясь с другими машинными 
модулями, образует рабочую программу, которую 
можно загрузить в оперативную память и исполнить. 
Интерпретатор непосредственно исполняет программу 


на языке высокого уровня, рассматривая входной текст 
как последовательность кодов операций, управляющих 
его работой. Между этими полюсами располагается 
целый спектр промежуточных подходов, состоящих 
в предварительном преобразовании входного текста 
программы в некоторой промежуточный язык с по¬ 
следующей интерпретацией получившегося кода. Чем 
ближе промежуточный язык к машинному языку, тем 
ближе данный подход к классической трансляции, а чем 
ближе он к исходному языку программирования, тем 
ближе этот подход к интерпретации. 

Оптимальный вариант промежуточного языка дол¬ 
жен существенно отличаться от исходного языка про¬ 
граммирования и быть удобным для создания простых 
и падежных интерпретаторов. Примером одного из 
таких промежуточных языков является известный ГІ- 
код, используемый во многих реализациях языка Па¬ 
скаль. Рассматриваемые нами варианты шитого кода 
образуют специальный класс представлений промежу¬ 
точных языков, особенно удобных для интерпретации 
[22, 25, 29]. 

В общем случае промежуточный язык состоит из 
набора элементарных операций, средств управления 
локальной памятью для хранения и передачи данных 
и средств управления процессом вычисления. Однако 
если по своей сложности промежуточный язык при- 
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ближается к исходному .машиннонезависимому языку 
программирования, то целесообразность его использо¬ 
вания снижается. Одним из приемов, направленных 
на упрощение набора команд промежуточного языка, 
является применение стековой архитектуры (или ниль- 
адресных команд). В этом случае для работы с памятью 
требуется всего две операции: перенести значение со 
стека в память и наоборот из памяти в стек. Кроме 
тоіч), стековая архитектура естественным образом при¬ 
водит к стековому механизму передачи параметров, 
который таким образом становится общей частью всех 
реализаций данного промежуточного языка. 

Шитый код особенно удобен для реализации вирту¬ 
альных машин со стековой архитектурой: ІІ-кода, Лиспа 
и, конечно, Форта. Вместе с тем в каждом случае следует 
различать качества реализации, которые обеспечи¬ 
ваются применением шитого кода, и качества, которые 
присущи самому языку. 

Известны четыре разновидности шитого кода: под- 
программнан, косвенная и свернутая. Во всех четырех 
случаях операции промежуточного языка представ¬ 
ляются ссылками на подпрограммы, соответствующие 
этим операциям. Перечисленные разновидности раз¬ 
личаются способом представления этих ссылок и соот¬ 
ветственно интерпретатором такой последовательности. 
Подпрограммы, реализующие операции языка, раз¬ 
деляются на два класса: верхнего уровня, представлен¬ 
ные в том же шитом коде, и нижнего уровня, реализо¬ 
ванные непосредственно в машинном коде данной ЭВМ. 
Подпрограммы нижнего уровня взаимодействуют 
с интерпретатором шитого кода, используя выделенные 
ему машинные ресурсы. Вместе с тем конкретный вид 
этих ресурсов может быть самым разным для разных 
архитектур ЭВМ. 

Во всех разновидностях шитого кода его интерпре¬ 
татор должен обеспечивать выполнение трех действий, 
которые традиционно обозначаются так: 

\ т ЕХТ (следующий) — переход к интерпретации 
следующей ссылки в данной последовательности ссы¬ 
лок; 

САВВ (вызов) — переход в подпрограмму верхнего 
уровня, представленную в шитом коде; 

КЕТВІКіХ (возврат) — возврат из подпрограммы 
верхнего уровня на продолжение интерпретации. 
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Указатель 


Шитый код 



Подпрограмма Подпрограмма 

на промежуточном языке 6 машинном коде 


І5К 1 

в: 


І5К М 


Машинный код 

♦ • • 



КТ5 


КТ5 


Рис. 2.1. Подпрограммный шитый код 

В силу его очевидной рекурсивности интерпретатор 
использует специальный стек в качестве собственной 
структуры данных. Этот стек называется стеком возвра¬ 
тов , чтобы отличать его от стека данных , обычно 
используемого операциями промежуточного языка. 
В качестве еще одной собственной структуры данных 
интерпретатора выступает указатель на текущее место 
в интерпретируемой последовательности ссылок, пред¬ 
ставляющих операции промежуточного языка. 

Из всех разновидностей шитого кода подпрограм¬ 
мный максимально эффективен по времени исполнения. 
Он удобен в том случае, когда архитектура данной 
ЭВМ включает аппаратные стеки, команду перехода 
па подпрограмму (перехода с возвратом), в которой 
адрес возврата запоминается на вершине стека, и 
команду возврата по адресу, находящемуся на вершине 
стека. Для ЭВМ СМ-4 и «Электроника-60» это команды 
.18К и К5Т, для микропроцессора К580 — команды 
СА\± и КЕТ. 

Структура подпрограммного шитого кода приведена 
на рис. 2.1. Каждая ссылка на операцию промежуточ¬ 
ного языка представляется в виде машинной команды 
перехода на соответствующую подпрограмму. Стек 
возвратов используется для сохранения адреса воз¬ 
врата этими командами, а в качестве указателя теку¬ 
щего места в интерпретируемой последовательности 
ссылок выступает внутренний регистр счетчика адреса. 
Высокоуровневая подпрограмма на промежуточном 
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языке представляет собой последовательность таких 
же команд перехода с возвратом, которая заканчивает¬ 
ся командой возврата по адресу, снимаемому с вершины 
стека возвратов. Подпрограмма нижнего уровня долж¬ 
на заканчиваться такой же командой возврата для 
продолжения обработки. Таким образом, в подпро¬ 
граммном шитом коде интерпретатор реализуется не¬ 
посредственным образом в структуре самого кода. 
Действие МЕХТ состоит в исполнении пары команд 
Л5К/К8Т, действие САЫ_ как таковое отсутствует, дей¬ 
ствие КНТІіКМ состоит в команде К5Т. Подпрограммный 
шитый код в отличие от всех остальных разновидностей 
допускает большую оптимизацию по времени счета за 
счет непосредственной вставки подпрограмм нижнего 
уровня в место их вызова. 

Прямой шитый код (рис.2.2.) уступает подпрограм¬ 
мному по скорости исполнения, но дает выигрыш по 
объему памяти, необходимой для его размещения. 
В качестве последовательности операций промежуточ¬ 
ного языка выступает последовательность адресов 
соответствующих подпрограмм. Ее можно рассматри¬ 
вать как последовательность вызовов подпрограммного 
шитого кода с удаленным кодом команды Л5К (именно 
это и дает экономию объема памяти примерно на 
1/3 по сравнению с подпрограммным кодом). Поскольку 
код команды отсутствует, требуется специальный интер- 
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Рис. 2.2. Прямой шитый код 
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Рис. 2.3. Косвен¬ 
ный шитый код 


претатор последовательности ссылок. Подпрограммы 
верхнего уровня должны начинаться машинными 
командами, выполняющими действие ('ЛЕЕ (положить 
текущее значение указателя на стек возвратов, пере¬ 
вести указатель на начало последовательности адресов 
данной подпрограммы, исполнить МЕХТ) и заканчи¬ 
ваться адресом подпрограммы КНТЕ'КІХ (сиять значе¬ 
ние со стека возвратов и заслать его в указатель, испол¬ 
нить ХЕХТ). Подпрограммы в машинном коде должны 
заканчиваться исполнением действия ХЕХТ (скопиро¬ 
вать адрес подпрограммы по текущему значению 
указателя в рабочую ячейку, перевести указатель на 
следующий элемент кода, передать управление по адре¬ 
су в рабочей ячейке).В тех случаях, когда архитектура 
ЭВМ позволяет выразить действия САВЕ и ХІЕХТ 
одной-двум я ма Ніи иным и командами (например, для 
ЭВМ СМ-4), эти команды вставляются непосредственно 
в подпрограммы; если же требуется более длинная по¬ 
следовательность команд, то в подпрограммы встав¬ 
ляются команды перехода на соответствующие точки, 
которые выносятся в отдельное подпрограммное ядро. 

Косвенный шитый код уступает прямому по скорости 
исполнения, но имеет то преимущество, что его высоко¬ 
уровневые подпрограммы не зависят от машины, по¬ 
скольку не содержат машинных кодов. Как и в случае 
прямого кода, последовательность операций промежу¬ 
точного языка состоит из последовательности адресов 
подпрограмм, разница заключается в организации этих 
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подпрограмм и действиях интерпретатора (рис. 2.3.). 
Теперь чтобы передать управление на машинный код, 
в действии ІМЕХТ требуется выполнить еще одно разы¬ 
менование. Подпрограмма верхнего уровня начинается 
не машинными командами для действия САЕЕ, а ячей¬ 
кой, где записан адрес этой точки, и заканчивается 
ячейкой, где записан адрес ячейки с адресом точки 
КЕ'ШКіЧ. Подпрограмму на машинном языке пред¬ 
ставляет ячейка, где записан адрес начала соответ¬ 
ствующего кода. Завершающим действием такой 
подпрограммы, как и раньше, является исполнение 
действия ХЕХТ. Для этого обычно используется без¬ 
условный переход на соответствующую точку интер¬ 
претатора. 

Наконец, свернутый шитый код , который может 
быть как прямым, так и косвенным, отличается тем, 
что вместо прямых адресов подпрограмм и кодов в нем 
используются их свертки, которые, вообще говоря, 
короче этих адресов. Таким путем за счет усложнения 
доступа к подпрограммам в действии ХЕХТ (через 
использование таблицы сверток или специальной 
функции, преобразующей свертку в соответствующий 
адрес) можно добиться экономии памяти или возмож¬ 
ности использовать больший диапазон адресов для 
размещения кода. Пусть, например, архитектура ЭВМ 
требует, чтобы адреса подпрограмм и команд были 
четными. Тогда, используя в качестве свертки, пред¬ 
ставляющей такой адрес, его значение, деленное на 2, 
мы получаем возможность использовать вдвое большее 
адресное пространство. 

Таким образом, разновидности шитого кода пред¬ 
лагают широкий диапазон характеристик по скорости 
исполнения и требованиям к памяти. Поскольку все 
они логически эквивалентны, то выбор конкретного 
варианта определяется конкретными требованиями. 
В реализациях языка Форт встречаются все эти ва¬ 
рианты. 


2.2. Структура словарной статьи 

Каждое слово-команда, известное форт-системе, 
хранится в оперативной памяти (в словаре) в виде 
специальной структуры данных — словарной статьи, 
состоящей из поля имени, поля связи, поля кода и поля 
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параметров. Стандарт не фиксирует порядок взаимно¬ 
го расположения этих нолей, оставляя его на усмотре¬ 
ние разработчиков реализации. Как правило, поля рас¬ 
полагаются подряд в том порядке, как они перечислены 
вы ше. 

Поля имени и связи вместе образуют заголовок 
словарной статьи, который нужен для поиска статьи 
по имени слова. Результатом поиска являются поля 
кода и параметров, которые вместе образуют собствен¬ 
но тело словарной статьи, определяющее действие, 
связанное с данным словом, т. е. его семантику. Соглас¬ 
но стандарту словарную статью представляет адрес 
ее поля кода, исходя из которого можно получить 
адреса всех других ее полей. Поскольку именно этот 
адрес компилируется в шитый код, то он также на¬ 
зывается адресом компиляции. 

Поле имени содержит имя слова в виде строки со 
счетчиком. Стандарт ограничивает максимальную дли¬ 
ну имени 31 литерой (5 двоичными разрядами), чтобы 
остающиеся разряды в байте счетчика можно было 
использовать под специальные признаки. Важнейший 
из них — признак немедленного исполнения, который 
обычно занимает старший разряд байта-счетчика. Та¬ 
кам образом, поле имени имеет переменную длину, 
которая определяется значением счетчика. 

Поле связи занимает 2 байта и содержит адрес 
заголовка предыдущей словарной статьи. Через это 
поле словарные статьи связаны в цепные списки, в ко¬ 
торых можно вести поиск статьи по имени слова. Поле 
связи первой статьи в списке содержит некоторое спе¬ 
циальное значение, обычно нуль. Новые слова до¬ 
бавляются в конец списка, и поиск слов ведется от 
конца списка к началу. 

Тело словарной статьи реализуется через шитый 
код в одной из его разновидностей. Для определен¬ 
ности примем за основу косвенный шитый код. В этом 
случае интерпретатор шитого кода называется адрес¬ 
ным интерпретатором форт-системы, поскольку интер¬ 
претирует последовательность адресов, каждый из 
которых является адресом компиляции некоторой сло¬ 
варной статьи (адресом ее поля кода). В качестве 
собственных данных адресный интерпретатор исполь¬ 
зует стек возвратов и указатель на текущее место 
в интерпретируемой последовательности адресов. 
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Поле кода словарной статьи в случае косвенного 
шитого кода занимает 2 байта и содержит адрес машин¬ 
ной программы, которая и выполняет действие, связан¬ 
ное с данным словом. Точка \НХТ адресного интерпре¬ 
татора обеспечивает этой программе доступ к полю 
параметров данной словарной статьи. Для статен, со¬ 
ответствующих определению через двоеточие, поле кода 
содержит адрес точки СЛИИ адресного интерпретатора, 
а поле параметров представляет собой последователь¬ 
ность адресов словарных статей, входящих в данное 
определение. Завершается такая последовательность 
адресом словарной статьи НХГГ (выход), который 
компилируется завершающей данное определение точ¬ 
кой с запятой. Для словарных статей нижнего уровня, 
т. е. реализованных непосредственно в машинном коде, 
поле кода содержит адрес соответствующей машинной 
программы, которая обычно располагается в поле пара¬ 
метров этой статьи. Таким образом, можно сказать, 
что поле кода словарной статьи содержит адрес машин¬ 
ной программы --- интерпретатора поля параметров. 
Все слова, определенные через двоеточие, имеют в ка¬ 
честве интерпретатора действие САВВ адресного интер¬ 
претатора, слова нижнего уровня наоборот имеют 
каждое свой отдельный интерпретатор в виде машинной 
программы, размещенной в поле параметров. В частно¬ 
сти, такой программой для слова НХІТ является дей¬ 
ствие КСТВ'КХ адресного интерпретатора. 

На рис. 2.4. приведены адресный интерпретатор и 
структура словарной статьи для определения 


і Р (А ---> А#1А+13/2) 


ОІІР 1+ 2 */ 


вычисляющего сумму натуральных чисел от I до Л по 
известной формуле. В качестве языка нижнего уровня 
для записи действий адресного интерпретатора при¬ 
меняется очевидная нотация. Переменная КІ обозна¬ 
чает указатель текущего места в интерпретируемом 
коде, процедура МПМ дает значение, находящееся по 
заданному адресу в памяти форт-системы. Процедуры 
РРУ8П и КРОР используются для обращения к стеку 
возвратов с тем, чтобы положить значение на его верши¬ 
ну и снять верхнее значение. 

Па рис. 2.4 изображены две словарные статьи: 
верхнего уровня для слова Р, определенного через 
двоеточие, и нижнего уровня для слова НХІТ, являю- 
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: Р (А—А* [А + 11/2) Ш/Р 1 + 2 * / ; 


Поле 

имени 

Поле 

связи 

Поле 

кода 

Поле 

пара¬ 

метров 



N6X1 : \Ѵ: = МЕМ(РІ); М: = КІ+2; 
(рОѣО МЕМ(\Ѵ); 


САН: РРІІ$Н(РГ);КІ=\Ѵ+2; 
доЬО N6X1; 


Поле 

имени 


Поле 

связи 

Пале 

кода 

КЕтиКМ: 



Рис. 2.4. Адресный интерпретатор и структура сло¬ 
варной статьи для косвенного шитого кода 

щаяся к тому же частью адресного интерпретатора. 

Поле имени каждой статьи начинается байтом- 
счетчиком, в котором записано число литер в имени 
слова. Далее располагаются коды самих этих литер. 

Вслед за полем имени идет поле связи, содержащее 
адрес поля имени предыдущей словарной статьи. В тех 
реализациях, где двухбайтные значения должны рас¬ 
полагаться с четного адреса, поле имени тоже распо¬ 
лагают с четного адреса, дополняя его (как в случае 
слова Г'ХГГ) до четного числа байт специальным кодом 
(обычно пробелом или нулем). 

Поле кода словарной статьи содержит адрес 
машинной программы. Для слова Р это адрес точки 
САЬР адресного интерпретатора, для слова ЕХІТ — 
адрес его поля параметров, где и располагается соот¬ 
ветствующая программа. 

Наконец, в соответствии с техникой шитого кода 
в поле параметров статьи для слова Р располагается 
последовательность адресов полей кода словарных 
статей тех слов, из которых составлено его определение. 
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В этих адресах перед именем слова стоит знак . Ском¬ 
пилированное число занимает две ячейки: в первой 
находится адрес специального служебного слова ЫТ 
(от ЫТЕгКАЁ— литерал), а во второй — значение 
данного числа. Действие слова ЫТ состоит в том, что 
значение числа кладется на стек данных, а указатель 
интерпретации передвигается дальше, обходя это зна¬ 
чение в шитом коде: 

СІТі Ыі =МЕМ (РІ ) I Ри5Н(Ю; ЙІ і =ЯІ +2 1 доіо 

Здесь используется тот факт, что в момент перехода на 
очередную машинную программу в действие ЫЕХТ ука¬ 
затель текущего места КІ уже установлен на следующий 
элемент интерпретируемой последовательности адресов. 

Адреса полей словарной статьи имеют традиционные 
обозначения, которые представляют аббревиатуры их 
английских названий: 

МРА - №лѳ Ріеісі Аййгевв - адрес поля имени 

СРА - Ііпк Ріеісі Аййгевв - адрес поля связи 

СРА - Соде Ріеід Аддге&в - адрес полз кода 

РРА - РагаяеСег Ріеід Аддгевв - адрес поля 

параметров 

Представлением словарной статьи считается адрес ее 
поля кода. Стандартное слово > ВСЮУ (от Ьосіу — 
тело) СРА РРА преобразует его в адрес поля па¬ 
раметров. По аналогии во многих реализациях введен 
следующий ряд слов для переходов между остальными 
полями статьи: 

В00Ѵ> РРА —-> СРА 
>ЫАМЕ СРА ---> ЫРА 
NАМЕ> ЫЕА — > СРА 
ИНШ ЫРА —> СРА 
ОМАНЕ СРА —-> ИРА 

Их реализация определяется принятой структурой 
словарной статьи. 

Стандарт предусматривает слово ЕХЕСЬТЕ (ис¬ 
полнить) СРА , которое снимает со стека адрес поля 
кода словарной статьи и исполняет ее. Непосредственно 
под этим значением в стеке должны находиться пара¬ 
метры, необходимые данному слову. Такой механизм 
открывает широкие возможности для передачи слов- 
команд в качестве параметров. 


52 



2.3. Стек возвратов 

и реализация структур управления 

Один из важных принципов языка Форт состоит 
в том, чтобы предоставить программисту максимальный 
доступ ко всем средствам его реализации. В соответ¬ 
ствии с этим принципом собственные данные адресного 
интерпретатора — стек возвратов — были сделаны до¬ 
ступными, для чего введены специальные слова: 
> КА к> -*А и К@^А. Буква К (от НБТУКК — 
возврат) в имени этих слов напоминает о том, что они 
работают со стеком возвратов. Все эти слова можно 
использовать только внутри компилируемых опреде¬ 
лений. Во время исполнения любого такого определе¬ 
ния, представленного в шитом коде как подпрограмма 
верхнего уровня, на вершине стека возвратов нахо¬ 
дится адрес того места, откуда данное определение было 
вызвано (адрес возврата). Это значение было поме¬ 
щено туда действием САББ при входе в данное опреде¬ 
ление. Адрес возврата будет снят со стека возвратов 
и использован для продолжения интерпретации дей¬ 
ствием КЕТСКМ, составляющим семантику слова 

ЕХІТ. 

Перечисленные слова позволяют программисту 
вмешиваться в описанный механизм вызова, реализуя 
свои собственные схемы передач управления, и, кроме 
того, использовать стек возвратов для хранения вре¬ 
менных данных в пределах одного определения (все 
положенные на стек возвратов значения должны быть 
сняты с него перед выходом из определения). Однако 
неосторожное манипулирование стеком возврата может 
вызвать непредсказуемые последствия, вплоть до раз¬ 
рушения форт-системы. Слово > Ц (читается «на эр») 
переносит значения с вершины стека данных на стек 
возвратов. Обратное действие выполняет слово 
(читается «с эр»). Слово К@ (читается «эр разымено¬ 
вать») копирует вершину стека возвратов на стек дан¬ 
ных, сохраняя это значение на стеке возвратов. 

С помощью описанных слов легко определить, на¬ 
пример, приведенное выше слово БІТ , компилируемое 
в шитый код вместе со следующим за ним значением, 
чтобы во время счета положить это значение на стек 
данных: 

I ИТ ( ---> А ) Рв в Я> 2+ >Я \ 
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Во время работы даішого в этот момент 

на стек адрес возврат у цх элемент в ин¬ 
на с л е іі у ю і н и и п о с л е а ^ ^ е п “ к 0 с т и адресов (ем. 

терн ротируемой пое. Д ает этот адрес, таким 

рис. 2.4). Слово ксь р ' ается скомпилированное 

образом па стеке ок _ ^ 2 > К увеличивают 

в шитый код число. С ‘ бойти значение числа, т. е. 
адрес возврата на 2 чт ‘ 0 как адрес некоторой 

параметра череГад^с возврата, невозможный в тра¬ 
диционных языках программирования. , я 

Рассмотренные ранее стрУкг>Р“ рк > в , ыражак)ТС я 

условный оператор и никл ' программист может 

через эти »°»? тия , н [ 1 ° И "°®к?;’ры ѵправления, совер- 
создавать собствснньР* .> Р Реализаиия условного 

шенствуя свои и»^Р>- Р опирает ся на следую- 
ГГсХ Г а Г„ Ч11 ьй ра«»отр«яж>»* В..Ш. «О.У 

Ь1Г ' , СОНРИЕ ( --> ) м і . «> 2+ >* • 

,В ^ СН /Г'^юшріІѴеіее.тнеюр, 

■ ?ВКАЫСН ( А—» «> 1Г 

Слово СОМР11Л 7 . “Ге";:«одя,« С ™ 

добавляет) на вершиь\ -■ Р аанио й ссылкой на 

в ШИТОМ кодерНепоср«ственно л зада пере . 

статью СОМРіи.-- интерпретации по адресу, 

устанавливает ука.ште. о Р й ссылкой на статью 

скомпилированному вслед -,иРЛ\;СИ снимает значение 

ВКЛNСН .Наконец, п ^ Г о В если это Л0 ЖЬ <яу-ь>. 

со стека и анализирует • — указатель интер- 

то оно работает, как ВКАЛСН У ском11ИЛИроваи . 

претации устанавливается пс' ДР с У т ’ атью ?ВКА\СН , 
ному вслсд ^/иНА 0И (ішнуть) то при интерпретации 

а если это ИСТИНА 0е> ' омпилирова1! ный адрес 

данной последовательно б тельств0і что в онре- 

перехода будет ° б ™ ,де ^ н используется условный 
делении слова. В <- * ѵповного оператора не- 

оператор, для реализац У ' ктике слова ВІМХСН 
существенно, потому что на лрак™ истсмах К ак под- 

и ?ВКЛМСН реализуются в ^ иные 0 „р С делсния 
программы нижнего уровня. Приведен.» 
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л и іль иллюстрируют выразительные возможности 
языка, показывая, что даже такие, самые элементарные 
действия можно задать машиннонезависимым способом 
в виде высокоуровневых определений. 

Вот еще пример определения важного стандартного 
слова: 

і ІЛТЕРАІ. ( А - —> А/ ) 5ТАТЕ в 

ІР СПИР НЕ ИТ , ТНЕЫ ( ІММЕОІАТЕ 

Слово ЕІТЕРАЕ анализирует текущее состояние тек¬ 
стового интерпретатора: если это компиляция, то ком¬ 
пилирует значение, находящееся на вершине стека, как 
литерал в шитый код; в противном случае это значение 
остается на стеке. 

Теперь у нас достаточно средств, чтобы выразить 
стандартные структуры управления, как обычные опре¬ 
деления, через двоеточие. Например, слова для услов¬ 
ного оператора можно определить так: 

і ІР < —> АІ СОМРПЕ ?ВВАЫСН НЕРЕ 2 А1П0Т | 

ІММЕО I АТЕ 

і ТНЕМ ( А —-> ) НЕРЕ 5ИАР ! | ІММЕОІАТЕ 

і ЕЬ5Е ( А1 ---> А2 ) СОМРПЕ ВРАЫСН НЕРЕ 
2 А1Д0Т НЕРЕ РОТ ! ) ІММЕОІАТЕ 

Все эти слова имеют признак немедленного исполнения, 
который придается им словом ІММЕОІАТЕ , исполнен¬ 
ным сразу после завершения каждого определения. Это 
означает, что данные слова будут исполняться, а не 
компилироваться, как остальные, во время обработки 
тела определений текстовым интерпретатором форт- 
еистемы. 

На рис. 2.5 показана последовательность состояний 
словаря и стека в разные моменты обработки фрагмента 
А В ІР С О ТНЕГч Е Р в теле определения через двое¬ 
точие. Эту обработку выполняет текстовый интерпре¬ 
татор, находящийся в состоянии компиляции. В резуль¬ 
тате строится последовательность адресов словарных 
статей в соответствии с принятой техникой шитого кода. 

Пусть слова А, В. Г являются обычными форт- 

словами, не имеющими признака немедленного испол¬ 
нения. Тогда соответствующие им адреса будут компи¬ 
лироваться на вершину словаря. 

Состояние / на рис. 2.5. соответствует моменту 
обработки непосредственно перед вводом слова ІР. 
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Рис. 2.5. Компиляция условного оператора 

На вершине словаря скомпилированы адреса статей 
А и В и указатель вершины НЕКЕ указывает на следую¬ 
щий адрес. Слово ІР имеет признак нехмедленного 
исполнения, поэтому будет не скомпилировано, а ис¬ 
полнено. 

Состояние // показывает результат исполнения сло¬ 
ва ІР . На вершину словаря скомпилирована ссылка 
на статью ?ВКАІМСН , вслед за которой отведено еще 
2-байта под адрес перехода, и адрес зарезервированного 
места сохранен на стеке данных. 

Дальнейшие слова С и Э будут опять компилиро¬ 
ваться. Состояние III соответствует моменту перед 
вводом слова ТНЕN . 

Слово ТНЕМ , как и ІР, имеет признак немедлен¬ 
ного исполнения, поэтому будет исполняться; в резуль¬ 
тате возникнет состояние IV . В этот момент определя¬ 
ется адрес перехода для скомпилированной словом ІР 
ссылки на статью ?ВКАЫСН ; это текущее значение 
указателя вершины словаря НЕКЕ , которое и вписы¬ 
вается в зарезервированные ранее 2 байта. Результат 
дальнейшей компиляции приводит к состоянию V . 
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Аналогичным образом исполняется и определение 
слова ЕЕ5Е , которое компилирует обход части «иначе» 
и вписывает адрес ее начала в качестве адреса пере¬ 
хода для ссылки ?ВКА\ : СН . В свою очередь, адрес 
перехода для скомпилированного обхода будет вписан 
завершающим условный оператор словом ТНЕЫ. 

Можно повысить надежность программирования 
условного оператора введением контроля за соответ¬ 
ствием слов ІЕ , ТНЕХ и ЕЬ5Е с помощью вспомога¬ 
тельного слова ?РАІК$ : 

: ?РАIВ5 ( А1 , А2->) - АВОКТ" НЕПАРНЫЕ СКОБКИ" \ 

которое снимает два значения со стека и, если они не 
равны между собой (их разность не нуль), выдает 
сообщение об ошибке с пояснительным текстом «Непар¬ 
ные скобки». Стандартное слово АВОКТ" (выброс 
и кавычка) А-*- (исполнение) по своему употреблению 
аналогично слову (точка и кавычка): оно снимает 
значение со стека и, рассматривая его как логическое, 
сигнализирует об ошибке, печатая следующий за ним 
текст до кавычки, если это значение ИСТИНА (не нуль). 
Усиленные таким контролем определения слов услов¬ 
ного оператора выглядят следующим образом: 

і ір ( -—> А, 1 ) 

С0ИРИЕ 7ВКАЫСН НЕВЕ 2 АІЛОТ 1 ) ІММЕОІАТЕ 

I ТНЕЫ < А,1 ---> > 1 7РАІКЗ НЕКЕ БИАР ! | ІММЕОІАТЕ 

I ЕІ.ЗЕ < А1 * 1 ---> А2, 1 ) 1 7РАІК5 

С0МРП.Е ВКАІЧСН НЕКЕ 2 А1Л.0Т 
НЕКЕ КОТ ! | ІИИЕОІ АТЕ 

В этих определениях для контроля вместе с адресом 
зарезервированного места передается число 1, которое 
проверяется с помощью слова?РАІК5в словах, ис¬ 
пользующих переданный адрес. Такой простой способ 
контроля на практике оказывается вполне достаточным. 
При этом программист может встроить любой другой 
контроль по своему желанию. 

Приведенное определение условного оператора 
связано с реализацией стандартных слов ВКАХСН 
и ?ВКАМСН , выполняющих переходы в шитом коде. 
Из соображений эффективности эти слова обычно 
задают как подпрограммы нижнего уровня в машинном 
языке. Тогда в зависимости от архитектуры ЭВМ 
может оказаться предпочтительней не абсолютный, как 
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в приведенной реализации, а относительный адрес 
перехода, компилируемый в шитый код сразу после 
ссылки на статью ВКАМСН или ?ВКА\СН . Чтобы 
сделать определения, использующие эти слова, машин¬ 
нонезависимыми, стандарт предусматривает следующие 
слова для организации таких ссылок: 

>МАКК -> А 

ЖЕВ01.ѴЕ А ---> 

<МАКК ---> А 

<РЕЗОи ѴЕ А ---> 

Слово :> МАКК (от МАКК — отметить) резервирует 
место для ссылки вперед и оставляет адрес зарезерви¬ 
рованного места на стеке. Слово ;> КК80КѴЕ (от 
КЕ50ЕѴР — разрешить) снимает этот адрес со стека 
и вписывает в него ссылку на текущую вершину словаря 
в соответствии с принятой реализацией переходов 
в шитом коде, согласованной с реализацией слов ВКАМСН 
и ?ВКА\ Г СН . Аналогично слова <МАКК и <КЕ50КѴЕ 
предназначены для организации ссылок назад. Слово 
<СМАКК кладет на стек текущий адрес вершины сло¬ 
варя, а слово < КЕЯОЬѴЕ компилирует ссылку на 
переданную точку. Окончательно определения слов 
условного оператора можно задать следующим образом 
(как они и выглядят в большинстве практических реали¬ 
заций) : 


: ІР ( —> А, 1 ) СОМРИЕ 7ВРАЫСН >МАРК 1 } 

ІММЕОІАТЕ 

і ТНЕМ < А, !--->) 1 ?РАIКЗ ЖЕ301.ѴЕ ; ІММЕОІАТЕ 

: ЕЦ3Е ( А1,1->А2,1> 1 7РАІРЗ СОМРИЕ ВРАЫСН 

>МАКК 3 М А Р ЖЕЗОЦОЕ 1 ( ІММЕОІАТЕ 

Аналогичным образом реализуются слова для циклов 
с проверкой (рис. 2.6): 

: ВЕЗЕN ( —-> А,2 ) <МАНК 2 ) ІММЕОІАТЕ 

: ІШІІ. ( А1 ,2 —> ) 2 ?РАIК3 

СОМРИЕ 7ВКАЫСН <КЕ501.ѴЕ ; ІММЕОІАТЕ 
* МИНЕ С А1,2 —> А1,А2,3 ) 2 7РАІН5 

СОМРИЕ 7ВКАЫСН >МАКК 3 ( ІММЕОІАТЕ 

: РЕРЕАТ ( А1 , А2,3->) 3 7РАІРВ СОМРИЕ ВКАЫСН 

ЗЫ АР <РЕ30І_ѴЕ ЖЕВОІѴЕ ; ІММЕОІАТЕ 

Очевидно, что реализованные таким образом стандарт¬ 
ные структуры управления могут произвольно глубоко 
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вкладываться друг в друга; несоответствие скобочных 
структур будет немедленно замечено, и программист 
получит сообщение об ошибке. 

Циклы со счетчиком (рис. 2.6) реализуются анало¬ 
гичным образом через вспомогательные слова (ЭО) , 
(І.ООР) и (-(-ЬООР) , компилируемые в шитый код 
вместе с адресом перехода: 

І 00 ( ---> А1,А2,4 ) СОМРИЕ (00) 

>МАКК < МАРК 4 I ІММЕОІАТЕ 
і ЮОР ( А1,А2,4 --->) 4 7РАІКБ СОМРИЕ (ЮОР) 

< РЕВОЬ ѴЕ ЖЕ501ѴЕ ) ІММЕОІАТЕ 
і +Ю0Р ( А1,А2,4— >) 4 7РАІКВ СОМРИЕ ( + Ю0Р) 

<КЕВ0І_ѴЕ ЖЕВ01.ѴЕ [ ІММЕОІАТЕ 

Слово (00) , с которого начинается исполнение ском¬ 
пилированного цикла со счетчиком, переносит на стек 
возвратов следующий за ним адрес конца цикла (он 
нужен для немедленного выхода из цикла по слову 
ЬПАѴП ) и параметры данного цикла — начальное 
и граничное значения счетчика, снимая их с вершины 
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стека данных. Эти значения находятся на вершине 
стека возвратов в течение всего времени исполнения 
тела цикла. 

Слово (ЕООР) , завершающее скомпилированный 
цикл, продвигает текущее значение счетчика и в случае 
повторения цикла переводит указатель интерпретации 
на начало тела по скомпилированному вслед за ним 
адресу перехода, а при завершении цикла сбрасывает 
стек возвратов в исходное состояние. 

Аналогично работает и слово ( + ЕООР) , которое 
дополнительно снимает со стека данных значение шага 
цикла. Разумеется, реализация этих слов должна соот¬ 
ветствовать принятому способу задания переходов 
в шитом коде. Для прямых адресов перехода соответст¬ 
вующие определения можно задать так; 

: (ПО) ( А2:ГРАНИЧНОЕ,А1 і НАЧАЛЬНОЕ —> ) 

В> ( А2, А1, Рі ВОЗВРАТ) ОЦР @ Ж ( АЛЯ ЦЕАѴЕ) 

РОТ Ж ( ГРАНИЧНОЕ) 5МАР Ж ( НАЧАЛЬНОЕ) 

2+ Ж ( ОБОЙТИ АДРЕС В ШИТОМ КОДЕ) [ 

: (ЮОР) ( ---> ) 

Р> В> Я@ ( Щ ВОЗВРАТ,1 б ТЕКУЩЕЕ, А2і ГРАНИЧНОЕ) 

- О 1. 0+ ( В,I-А2+1,Р і ПРИЗНАК ЗАВЕРШЕНИЯ) 

ІР ( ЗАКОНЧИТЬ) 

0Я0Р К> В> 20Р0Р 2+ < 0Б0ИТИ АДРЕС ) 

Е1.5Е ( ПРОДОЛЖИТЬ) 

Вв + Ж ( НОВОЕ ЗНАЧЕНИЕ СЧЕТЧИКА) 

@ ( АДРЕС НАЧАЛА ТЕЛА ЦИКЛА) 

ТНЕИ Ж » 

Определение ( + І_ООР) выглядит аналогично. 

Во всех приведенных примерах доступ к адресу 
возврата в шитом коде осуществляется через стек воз¬ 
вратов из данного определения. Этот адрес модифици¬ 
руется словами 2+ или @ , тем самым обеспечивая 
обход скомпилированной ссылки или переход по ее 
значению. Слова I и ЕЕАѴЕ , которые используются 
внутри тела цикла для получения текущего значения 
счетчика и немедленного выхода из цикла, можно за¬ 
дать так: 

* I ( ---> А ) Я> К@ ВЫАР Ж ; 

I ЬЕАѴЕ ( —> ) В> 0В0Р К> 0К0Р К> 0В0Р ; 

Для повышения быстродействия практические реали¬ 
зации языка Форт обычно определяют все эти слова, 
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как и ВКАІЧСН , в виде подпрограмм нижнего уровня 
в машинном коде. В этом случае,, например, слово I 
полностью эквивалентно слову К@ . 

Описанная реализация циклов со счетчиком через 
использование стека возвратов накладывает ограниче¬ 
ния при программировании. Неосмотрительное вклю¬ 
чение слов > К, К> , К@ и ЕХІТ в тело цикла со 
счетчиком может привести к непредсказуемому ре¬ 
зультату. 

Вместе с тем отстутствие какого-либо контроля 
является еще одной характерной чертой языка Форт. 
Благодаря этому программист может реализовать 
любые конструкции (включая и средства контроля). 

2.4. Управление поиском слов 

Множество слов, «известных» форт-системе, 
хранится в словаре в виде одного или более цепных 
списков словарных статей, соединенных через поле 
связи. Порядок поиска статей в этих списках обратен 
порядку их включения в словарь по времени определе¬ 
ния: статья последнего определенного слова находится 
в начале списка. Такой порядок делает естественным 
исключение слов из словаря с помощью слова РОКОЕТ : 
нужный список просто усекается до соответствующего 
места. 

Являясь самостоятельной структурой данных, спи¬ 
сок слов имеет и соответствующее определяющее 
слово — ѴОСАВЕІЬАКѴ (словарик, список слов) , 
аналогичное слову ѴАКІАВЬЕ. Оно выделяет из вход¬ 
ной строки очередное слово и определяет его как новый 
список слов, например, ѴОСАВІІЕАКѴ А. 

Со списками слов тесно связаны две стандартные 
переменные СОМТЕХТ (контекст) иСЬККЕІХТ (теку¬ 
щий) и слово РОКТН (Форт), обозначающее список, 
который состоит из всех стандартных слов и включает, 
в частности, само это слово. 

Поиск каждого введенного слова начинается в спис¬ 
ке, на который указывает переменная СОМТЕХТ , затем 
в случае неудачи просматривается список — текущее 
значение переменной СЬ'ККЕГчТ. Стандарт требует, 
чтобы последним просмотренным списком всегда был 
список РОКТН . Исполнение слова, обозначающего 
список, делает его текущим значением переменной 
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СОХТРХТ , т. с. первым списком, который просматри¬ 
вается при поиске слов. 

Стандартное слово ОЕРІХТПОХ5 (определения) 

: ОЕР I N1 Т 10№ ( ---> ) СОЫТЕХ Т @ СиРКЕЫТ ! ) 

устанавливает переменную СІІНКЕХТ по текущему 
значению переменной СОХТНХТ , т. е. соответствующий 
список становится вторым на очереди для просмотра 
и одновременно тем списком, куда добавляются новые 
словарные статьи. Первоначально обе эти переменные 
установлены на один и тот же список РОКТН . К этому 
состоянию приводит исполнение текста РОКТН ОР- 
РІХІТІОХ8. Разумеется, в этом случае поиск слов 
будет состоять в однократном просмотре списка слов 
РОКТІІ . 

Приведенное выше описание определяет порядок 
поиска лишь в общих чертах. Детали стандарт 
оставляет на усмотрение.разработчиков реализации. 
Обычно используется схема, приведенная на рис. 2.7. 
Для каждого списка в поле параметров его статьи 
строится заголовок «фиктивной» статьи для невозмож- 


УОС-иМ СОКІТЕХТ СіШЕИТ 



Рис. 2.7. Структура списков словарных статей 
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ного слова (например, состоящего из. одного пробела), 
и представлением списка (значением переменных 
СОХТЕХТ и СС'ККНХТ ) служит адрес поля связи 
этого заголовка, т. е. адрес второго элемента в поле 
параметров. Сам этот элемент является входом в цепной 
список словарных статей, принадлежащих данному 
списку слов. В качестве его начального значения в 
момент создания списка словом ѴОСАВІ ЕЛКУ ис¬ 
пользуется адрес ноля параметров словарной статьи 
другого списка, который таким образом является ба¬ 
зовым для данного (обычно это текущее значение пере¬ 
менной СОХТЕХТ). 

Таким образом, новый список через заголовок фик¬ 
тивной статьи присоединяет к себе все слова базового 
списка. 

В конечном счете любой список закапчивается сло¬ 
вами списка РОКТН , который уже не имеет базового. 
На рис. 2.7 показаны поля параметров списков Л , В 
и РОКТН . Список В является базовым для Л и, в свою 
очередь, базируется на списке РОКТН. Слова Л,, ... , 
А/ входят в список А ; В», ... , В,„ - в В и ІА, ... , І\, — 
в РОКТН. 

Показанный на рисунке порядок поиска слов соот¬ 
ветствует исполнению текста В ВЕРИМ ІТІОХ8 А, 
в результате чего сначала бѵдѵт просмотрены списки 
А , В , РОКТН , а затем В , РОКТН . 

Чтобы обеспечить большую гибкость в управлении 
порядком поиска слов и иметь возможность переопре¬ 
делять стандартные слова, в некоторых реализациях 
предусмотрено создание безвизовых списков . Это спис¬ 
ки, создаваемые в контексте списка РОКТН , для кото¬ 
рых РОКТН был бы базовым. Наличие безбазовых 
списков компенсируется тем, что в алгоритме поиска 
последним действием после просмотра списков, опре¬ 
деляемых переменными СОХТЕХТ и СЕ’ККЕХТ, про¬ 
сматривается список ЕОКТН , если он еще не был про¬ 


смотрен через эти переменные. 

Для учета всех существующих списков (что необхо¬ 
димо для реализации слова РОКОЕТ ) в их поле пара¬ 
метров резервируется еще одна ячейка: через которую 
все эти структуры связаны в единый цепной список, 
начинающийся в служебной переменной ѴОС — IЛ N К . 
Определение слова ѴОСАВІЛ-ЛКѴ с учетом перечислен¬ 
ных соглашений может выглядеть так: 
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і ѴОСАВІЛАВѴ ( — > ) СКЕЙТЕ 

256 ВЦ + , СОЫТЕХТ @ 2- , 

НЕВЕ ѴОС-ІЛИК « , ѴОС-ИИК ! 

СОЕВ) ( А —> ) 2+ ССЖТЕХТ ! | 

Когда в список включается новая словарная статья, 
то в поле связи ее заголовка копируется значение из 
поля связи фиктивной статьи в поле параметров данного 
списка, а туда заносится адрес нового заголовка. Таким 
образом, можно определить слово ЕАТЕ5Т (послед¬ 
ний): 

I І.АТЕ8Т ( ---> ИРА ) СиВВРИТ @ @ I 


которое возвращает адрес заголовка последней создан¬ 
ной словарной статьи (обычно это адрес поля имени). 
Через это слово становится очевидной, например, реали¬ 
зация слова ІМУЕОІАТЕ: 

: ІММЕСІ АТЕ ( --->) І.АТЕ5Т С@ 12В ОВ Ь АТЕВТ С! ( 

которое устанавливает в единицу признак немедленного 
исполнения в байте-счетчике последней созданной 
словарной статьи. 

В соответствии с общими принципами языка Форт 
сам процесс поиска слова в словаре доступен програм¬ 
мисту. Стандарт предусматривает для этого следующие 
слова: 

— > СРА 

С'З ---> СРА (исполнение) 

ССОМРИЕЗ ---> (КОМПИЛЯЦИЯ) 

РІИС А - —> СРА,N / А,О 

Слово ' (апостроф, читается «штрих») вводит 
очередное слово и ищет его в словаре, возвращая адрес 
поля кода найденной статьи (если слово не найдено, то 
это считается ошибкой). 

Слово ['] имеет признак немедленного исполнения 
и используется внутри определений через двоеточие, 
образуя вместе со следующим словом единую пару: во 
время исполнения адрес поля кода этого слова будет 
положен на стек данных. 

Слово [СОМРІЬЕ], уже встретившееся ранее, 
вводит и компилирует следующее слово независимо 
от признака немедленного исполнения. 
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Наконец, слово РІ\ г О (найти) позволяет формиро¬ 
вать образец для поиска программным путем: его па¬ 
раметром является адрес строки со счетчиком, которая 
рассматривается как имя слова. В случае успеха РІМО 
возвращает адрес поля кода его словарной статьи 
и значение М, характеризующее признак немедленного 
исполнения: !, если признак установлен, и —1, если 
отсутствует. В случае неудачи слово І ; І\ г О возвращает 
прежний адрес строки со счетчиком и значение 0 -- 
сигнал о неудаче. 

Разумеется, слова ' и ['] используют слово РІМП) : 

І * ( —-> А ) ВІ. МОРО Р ІЫО ІР ЕХІТ ТНЕЫ 

СОУИТ ТУРЕ -1 АБОРТ" ?" 1 

і ['] ( —-> ) ' С0МРН.Е I ІТ , ( ІММЕОІ АТЕ 
* [С0МРІІ.ЕЭ ( ---> ) ' , I ІММЕОІ АТЕ 

которое, таким образом, является основным в опреде¬ 
лении порядка поиска слов. 

В заключение рассмотрим определение стандартного 
слова РОРОРТ, которое вводит очередное слово, ищет 
его в словаре и исключает из словаря вместе со всеми 
словами, определенными после него. 

Служебная переменная РЕГЧ'СЕ (забор) защищает 
начальную часть словаря от случайного уничтожения. 
Она содержит адрес, отмечающий границу защищен¬ 
ной части (чтобы исключить слова из защищенной об¬ 
ласти нужно сначала понизить это значение): 

: РОРБЕТ ( —> ) >МАМЕ ( ЫРА> 

оор рейсе а и< аборт” защита по рейсе" 

>Р ѴОС-ИИК @ ( N01 ВХОД В СПИСОК СПИСКОВ) 

ВЕБІИ РЭ ОѴЕР и< ИННЕ ( И: ЗВЕНО СВЯЗИ СПИСКА) 

Р0КТН 0ЕРІНІТІ0И5 

а оир ѴОС-иИК ! < N1: ЗВЕНО СЛЕДУЮЩЕГО) 

РЕРЕАТ ( N1:ЗВЕНО ОСТАЮЩЕГОСЯ СПИСКА) 

ВЕБІИ оир 4 - ( N:ЗВЕНО СВЯЗИ,Ье ВХОА В СЛОВА) 

ВЕБІИ N >11N К @ ( И,ИРйі ОЧЕРЕДНОЕ СЛОВО) 

оир ра и< инти < и,ираііостаюшееся слово) 

0ѴЕК 2- < N,ИРА 1,Ь і АДРЕС СВЯЗИ ФИКТИВНОЙ СТАТЬИ) 

! а ?оир о= 

иити р> < ыр АО ) нере - аіаот [ 

Сначала определяется адрес статьи исключаемого 
слова, проверяется, что она расположена выше границы 
защиты, и этот адрес сохраняется на стеке возвратов. 


3 За к. Ко 572 
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В ходе исполнения первого цикла перебираются все 
существующие статьи для списков слов и исключаются 
те, адреса которых оказались больше данного (в силу 
монотонного убывания адресов в цепном списке ѴОС — 
1Л\К цикл прекращается, как только адрес очередной 
статьи оказывается меньше данного). Во время испол¬ 
нения второго цикла продолжается перебор оставших¬ 
ся статей для списков слов, при этом в каждом списке 
отсекаются статьи, адреса которых больше данного 
(здесь опять используется монотонное убывание адре¬ 
сов словарных статей в пределах одного списка). В зак¬ 
лючение указатель вершины словаря понижается до 
заданного адреса, тем самым освобождая память в сло¬ 
варе. Перед началом описанных действий переменные 
СОІМТЕХТ и СІККЕХТ устанавливаются на список 
РОКТН , чтобы их значение было осмыслено во все 
время дальнейшей работы. 

2.5. Реализация определяющих слов 

Механизм определяющих слов составляет одно 
из основных достоинств языка Форт, главную «находку» 
его создателей. С его помощью программист может 
вводить свои типы данных и структуры управления, 
задавая их внешнее синтаксическое оформление и внут¬ 
реннюю семантическую реализацию. Исходный строи¬ 
тельный материал программист может брать из срав¬ 
нительно небольшого исходного запаса слов-команд 
языка или создавать сам. 

Широкие выразительные возможности и вместе с тем 
компактность реализации этого механизма вытекают из 
того, что в его основе лежит фундаментальный принцип 
частичной параметризации. Его применению в тради¬ 
ционных языках программирования мешал громоздкий 
аппарат процедурного вызова, который считался в этих 
языках элементарным и неделимым действием. В языке 
Форт конструкция вызова разложена на отдельные 
составляющие и доступна «по частям», в частности 
имеется доступ к адресу возврата и всему динамиче¬ 
скому контексту вызова. 

В сочетании с единым механизмом передачи пара¬ 
метров через стек и компактной реализацией через 
шитый код это дает недостижимый для других языков 
уровень свертки понятий. 
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: СОШ СЯЕАТс- ^ 00Е$> (Э ; 
4 ССЫ5Т ХОР 
О' СОГѵ’ЗТ ОТЛ 



00Е5 : Рі/оН(\ѵ +2); РР0’5Н(КІ); 
ВІ: = КЕШР; дОІО МЕХУ, 


Рис. 2.8. Структура статьи определяющих и определя¬ 
емых слов 


На рис. 2.8 приведена структура словарных статей, 
возникающая после обработки определений 

: С0№Т СРЕАТЕ , 00ЕЗ> 6 ; 

4 ССЖВТ ХОР 5 СОМВТ ОТЛ 

Там же показана словарная статья для слова : , в теле 
которой находится точка САМ. адресного интерпре¬ 
татора. 

Поле кода статьи СОХ8Т содержит адрес точки 
САІА., а поле параметров содержит последовательность 
ссылок на словарные статьи, скомпилированную адрес¬ 
ным интерпретатором в соответствии с техникой шитого 
кода. Слово І)ОП8'> , входящее в зто определение, 
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имеет признак немедленного исполнения, поэтому оно 
не компилируется вслед за ссылкой на статью для за¬ 
пятой, а исполняется, Его исполнение состоит в компи¬ 
ляции ссылки на статью вспомогательного слова 
(;СООЕ) и компиляции машинной команды Л8Р пере¬ 
хода с возвратом на специальную точку ООІ-8 в ядре 
форт-системы. Далее текстовый интерпретатор компи¬ 
лирует ссылку на статью для @ и исполняет (в силу 
признака немедленного исполнения) слово которое 
завершает построение словарной статьи. Оно компили¬ 
рует ссылку на статью ЕХІТ и переключает текстовый 
интерпретатор в состояние исполнения. 

Во время исполнения слова СОХ8Т во фрагменте 
4 С0Х8Т ХОР входящее в него слово СРЕАТЕ создаст 
для слова ХОР заголовок словарной статьи и поле кода, 
заслав туда стандартный адрес. Следующее слово , 
скомпилирует число 4 в поле параметров, а слово (;СОІ)Р) 
занесет в поле кода адрес следующей за ним машинной 
программы и закончит исполнение слова С0Х8Т : 

I (|СООЕ) < —> ) Р> ІАТЕЗТ МАМЕ> ! \ 

Значение, снимаемое с вершины стека возвратов словом 
К>* это как раз адрес команды Л8Р в определении 
слова С0Х8Т . Слово ЕАТЕ8Т кладет на стек адрес 
заголовка последней созданной статьи, т. е. статьи ХОР, 
а слово ХАМЕ;> преобразует этот адрес в адрес поля 
кода. Поскольку со стека возвратов было снято одно 
значение, то по завершении данного определения управ¬ 
ление вернется в точку после вызова определения, выз¬ 
вавшего данное, т. е. на продолжение работы после 
вызова слова С0Х8Т. Аналогичные действия будут 
исполнены при обработке текста 5 С0Х8Т ОТЛ . Если 
теперь слово ХОР будет исполняться, то из точки ХЕХТ 
адресного интерпретатора управление будет передано 
на машинную программу по адресу из поля кода, т. е. 
на команду Л8Р в теле определения СОХ8Т . Эта ко¬ 
манда перехода с возвратом передает управление на 
точку 00Е8, сообщив ей в качестве своего адреса воз¬ 
врата адрес следующей последовательности ссылок — 
исполняющей части определения С0М8Т . Точка 00Е8 
кладет на стек адрес поля параметров статьи ХОР 
(в этот момент в рабочей ячейке \Ѵ еще находится адрес 
поля кода статьи ХОР , загруженный туда действием 
ХЕХТ) и исполняет действие САГЕ для исполняющей 
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части определения СО\'5Т . Следующее исполняемое 
слово @ заменит на стеке адрес поля параметров статьи 
ХОР числом 4, скомпилированным по этому адресу, 
и затем слово НХГГ завершит исполнение данного вы¬ 
зова слова ХОР . 

Слово : тоже является определяющим, и его словар¬ 
ная статья имеет такую же структуру. Рассмотрим его 
работу на примере трансляции определения СОХ'ЗТ. 

Создающая часть слова : состоит из слов СКЕАТЕ 
и ] . Первое выбирает из входной строки следующее 
за двоеточием слово (в данном случае ССМ8Т ) и соз¬ 
дает для него начало словарной статьи (заголовок 
и поле кода), а второе переключает текстовый интер¬ 
претатор в состояние компиляции. Последнее в создаю¬ 
щей части слово (;СОГ)Е) вписывает в поле кода созда¬ 
ваемой новой статьи текущее значение указателя ин¬ 
терпретации, т. е. адрес точки САЕЕ, которая распола¬ 
гается в теле данного определения, после чего исполнение 
двоеточия заканчивается. Поскольку теперь интерпре¬ 
татор находится в состоянии компиляции, то следующие 
вводимые слова будут компилироваться, заполняя поле 
параметров статьи СОМ5Т последовательностью ссы¬ 
лок. Так будет продолжаться до тех пор, пока слово — 
точка с запятой, отмечающее конец определения и имею¬ 
щее признак немедленного исполнения, не переключит 
интерпретатор обратно в состояние исполнения: 

I I і - —> ) СОМРП-Е ЕХІТ ССОМРИЕЗ С * 

ІММЕОІАТЕ 

Определяющие слова являются механизмом для 
создания классов слов со сходным «поведением», 
которое определяется исполняющей частью и включа¬ 
ется в словарную статью слова через поле кода. Разница 
между словами внутри одного класса состоит в значении 
поля параметров, которое строится при определении 
слова. Слова, определенные через двоеточие, состав¬ 
ляют один из классов наряду с константами, перемен¬ 
ными, списками слов и другими, которые программист 
может вводить по своему усмотрению. При этом дости¬ 
гается существенная экономия памяти за счет того, что 
общая часть всех слов одного класса присутствует 
в памяти в единственном экземпляре в статье опреде¬ 
ляющего слова. 
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Таким образом, в основе языка Форт лежат две 
структуры: внешняя — простейшая синтаксическая 

структура слова, представленного как последователь¬ 
ность литер, ограниченная пробелом, и внутренняя — 
структура словарной статьи, в которой поле кода задает 
интерпретатор поля параметров. Одним из частных 
случаев такого интерпретатора является адресный 
интерпретатор, и тогда поле параметров содержит 
последовательность интерпретируемых адресов в шитом 
коде. Этому случаю отвечает определение через двое¬ 
точие. Другие определяющие слова задают другие 
интерпретаторы и соответственно другие структуры 
поля параметров. 

2.6 Встроенный ассемблер 

Встроенный ассемблер позволяет программисту 
задавать реализацию слов непосредственно в машинном 
коде данной ЭВМ. Это дает ему возможность, с одной 
стороны, повышать быстродействие программы до 
максимально возможного уровня за счет перевода 
интенсивно используемых слов непосредственно в ма¬ 
шинный код, а с другой — использовать особен¬ 
ности архитектуры данной ЭВМ и «напрямик» связы¬ 
ваться с операционной системой и внешним окруже¬ 
нием. 

Примеры обоих случаев дает сама форт-система. 
Очевидно, что слова, выполняющие арифметические 
операции , или действия с вершиной стека, естественно 
реализовывать непосредственно в машинном коде, по¬ 
скольку скорость их исполнения в значительной степени 
определяет быстродействие системы. Вместе с тем слово 
I -(- , увеличивающее на единицу значение на вершине 
стека, можно определить как в машинном коде (особен¬ 
но если в данной ЭВМ есть специальная команда увели¬ 
чения значения на единицу), так и через двоеточие: 

1 1+ (А ---> А + 1> і + | 

В последнем случае, если к тому же слово 1 реализовано 
в виде отдельной словарной статьи 1 ССМЗТАЫТ 1 , 
шитый код займет всего три ячейки, что может быть 
короче аналогичной программы в машинном коде. Разу¬ 
меется, при этом исполнение будет дольше за счет интер¬ 
претации последовательности из трех ссылок вместо 
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прямого исполнения соответствующих машинных ко¬ 
манд. Также очевидно, что, например, форт-слова для 
обмена с терминалом естественно задать на машинном 
уровне через обращения к соответствующим функциям 
операционной системы или непосредственно к аппа¬ 
ратуре. 

Для определения слов непосредственно в машинном 
коде стандарт языка Форт предусматривает следующие 
слова: 


А88ЕМВ1ЕП —> 

СООЕ ---> 

ЕМО-СОВЕ ---> 

IСООЕ —> (компиляция) 

составляющие стандартное ассемблерное расширение 
обязательного набора слов. 

Слово А88ЕМВЕЕК (ассемблер) является именем 
списка слов, содержащего слова, с помощью которых 
строится машинный код (мнемоники машинных команд, 
обозначения регистров, способы адресации и т. д.). 

Слово СООЕ (код) является определяющим для 
слов нижнего уровня и обычно определяется так: 

: СООЕ < —> ) 

СВЕЙТЕ НЕВЕ 1АТЕ5Т МАМЕ > 1 А66ЕНВІ.ЕП ( 

Оно используется в сочетании со словом ЕЫО-СООЕ 
(конец кода): СООЕ<имя> <машинный-код> 
ЕЫО-СООЕ, где «имя» * является именем определя¬ 
емого слова, а «машинный-код» — записью его реали¬ 
зации в машинном коде в соответствии с принятыми 
соглашениями. 

Поле кода такой словарной статьи содержит адрес 
ее поля параметров, в котором располагается данный 
машинный код. 

Наконец, слово ;ССЮЕ , имеющее признак немед¬ 
ленного исполнения, позволяет задавать исполняющую 
часть определяющих слов непосредственно в машинном 
коде: 


і ; СООЕ ( ---> ) СОМРПЕ (|С00Е) 

ССОИРІІ.ЕЗ С А35ЕМВ1.ЕЯ і ІММЕОІАТЕ 

Оно используется внутри определения через двоеточие 
для определяющего слова аналогично слову ООЕ8> 
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: <ИМЯ> <С03ВйННЦйЯ"ЧЙСТЬ> 

;С О О Е <мйшинннй-ноЗ> ЕМО-СООЕ 

и отделяет высокоуровневую создающую часть от ис¬ 
полняющей части, заданной в машинном коде. Во 
время исполнения скомпилированного словом ;ССЮЕ 
слова (;ССЮЕ) адрес машинной программы, состав¬ 
ляющей исполняющую часть, будет заслан в поле кода 
определяемого слова, которое таким образом получит 
интерпретатор, реализованный в машинном коде. На 
практике именно таким способом задают стандартные 
определяющие слова : , СОЫ5ТАІМТ и ѴАКІАВЬЕ . 

Конкретный вид машинной программы зависит от 
архитектуры данной ЭВМ. Общим правилом является 
то, что этот текст представляет собой последователь¬ 
ность слов, которые исполняются текстовым интерпре¬ 
татором, в результате чего на вершине словаря форми¬ 
руется соответствующий двоичный машинный код. 
Машинные команды записываются в естественной 
для Форта обратной польской форме; сначала опе¬ 
ранды, а затем слово, обозначающее мнемонику 
команды. 

Операнды — это слова, вычисляющие на стеке раз¬ 
мещения операндов: номера регистров, адреса в памяти 
и их модификации, значения непосредственных операн¬ 
дов и т. д. 

Мнемоника команды, обычно состоящая из тради¬ 
ционного обозначения данной команды и запятой, сни¬ 
мает со стека размещения своих операндов и компили¬ 
рует соответствующий двоичный код. 

Включение запятой в имя слова для кода команды, 
с одной стороны, подчеркивает тот факт, что данное 
слово компилирует команду, а с другой стороны, поз¬ 
воляет отличать, например, часто встречающиеся мне¬ 
моники АОО , СН и т. д. от чисел, заданных в шестнад¬ 
цатиричной системе. 

В табл. 2.1 приведена запись одних и тех же машин¬ 
ных команд в традиционном ассемблере и встроенном 
ассемблере разных форт-систем для нескольких рас¬ 
пространенных типов ЭВМ. Как и в случае реализации 
структур управления, во встроенный ассемблер можно 
включить дополнительные средства контроля, которые, 
учитывая формат машинных команд, проверяют пра¬ 
вильность задания их операндов. 
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Таблица 2.1. Сравнительная запись машинных команд в тради¬ 
ционном ассемблере и встроенном ассемблере форт-системы 


Тип ЭВМ 

Традиционный ассемблер 

Встроенный ассемблер 
форт-системы 

СМ-4 

СМРВ # 12, (К1) + 
ЛМР ЫЕХТ 

КТ8 

12 # К1 ) + СМРВ, 
ЫЕХТ ЛМР, 

КТ5, 

ЕС ЭВМ 

і 

і 

8ТМ 14,12,12(13) 

ВАЬН 15, 0 

В ЫЕХТ 

14 12 12 (, 13 $ТМ, 

15 0 ВАЬН, 

ЫЕХТ В, 

К580 

МОѴ А, В 

ЬХІ Н, 15 

РОР Н 

А В МОѴ, 

Н 15 ЕХІ, 

! Н РОР, 

БЭСМ-6 

! , ІЛС, —15 
і , ХТА, 

3, итс, 777 

і 

0 0 5 # # ЕЛС, 

0 0 ХТА, 

3 777 ІЛС, 


В гл. 3 рассмотрена реализация полного встроенного 
ассемблера для микропроцессора К580, занимающая 
100 строк текста на языке Форт. 

Встроенный ассемблер форт-систем часто делают 
«структурным», т. е. включают в него операторы вет¬ 
вления и циклы, выполняющие переходы по значению 
управляющих разрядов в специальном регистре. По 
аналогии с такими же средствами языка Форт эти струк¬ 
туры задают с помощью тех же слов с добавлением, 
запятой: ІЕ, ТНЕМ, ЕЬ5Е, ВЕОШ, ІЛЧТІЕ и т. д. При 
этом вводят слова, обозначающие различные состояния 
управляющих сигналов, а слова, реализующие струк¬ 
турные операторы компилируют команды переходов, 
соответствующие указанным состояниям. Такой подход 
позволяет во многих случаях избежать введения слож¬ 
ного механизма переходов на метку, поскольку ассемб¬ 
лерные вставки, для трансляции которых и существует 
встроенный ассемблер, состоят, как правило, из не¬ 
скольких команд. 

Программа в машинном коде, заданная через слова 
ССЮЕ или ;ССЮЕ , получает управление от адресного 
интерпретатора и после ее завершения возвращает 
управление интерпретатору на точку ХЕХТ. Для связи 
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с адресным интерпретатором в списке слов А38ЕМВБНК 
обычно предусматривается ряд констант, обозначаю¬ 
щих точки входа, номера регистров и другие ресурсы 
адресного интерпретатора. Аналогичным образом пре¬ 
дусматривается связь с операционной системой, встро¬ 
енным постоянным программным обеспечением и аппа¬ 
ратурой. 

В общем объеме больших программ на Форте ассем¬ 
блерные коды составляют незначительную часть ( в реа¬ 
лизации самой форт-системы, например, 10—30%), 
но вместе с тем такая возможность делает программиста 
максимально свободным в выборе средств для реализа¬ 
ции своих идей. 

2.7 Работа с внешней памятью 

В настоящее время в каждом языке программи¬ 
рования тем или иным способом решаются вопросы 
обмена с внешней памятью. Из-за огромного разно¬ 
образия внешних устройств и способов хранения ин¬ 
формации на внешних носителях единый универсаль¬ 
ный механизм обмена отсутствует. В каждом языке 
определяется своя, в известной мере универсальная 
файловая система, которая при реализации модели¬ 
руется на реальной файловой системе конкретной 
операционной системы. 

Поскольку в язык Форт легко включать новые 
слова-команды, то надобность в стандартных уни¬ 
версальных развитых средствах обмена отпадает. 
В каждой реализации можно ввести такие средства 
исходя из особенностей и возможностей применяемых 
для данной ЭВМ файловой системы и конкретных внеш¬ 
них устройств. Вместе с тем желательно иметь меха¬ 
низм, обеспечивающий по крайней мере перенос и хра¬ 
нение на машинном носителе программных текстов на 
языке Форт. Исходя из этого стандарт предусматривает 
элементарнейшую файловую систему, которая легко 
реализуется в любой конкретной файловой системе или 
непосредственно через драйверы внешних устройств 
(магнитных дисков). 

В языке Форт применяется механизм виртуальной 
внешней памяти, состоящей из блоков по 1 К байт каж¬ 
дый. Блок идентифицируется номером - числом в диа¬ 
пазоне от 1 до 32767. В адресном пространстве форт- 
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системы выделяется память под буферный пул, рассчи¬ 
танный на одновременное хранение одного или более 
блоков. Каждый буфер помимо памяти для хранения 
собственно блока данных содержит номер блока 
и признак его измененности. 

Слово ВЕІРРЕК (буфер), получив номер блока, 
ищет свободный буфер в пуле и возвращает его адрес, 
записывая в служебную ячейку буфера переданный 
номер блока. Тем самым найденный буфер приписыва¬ 
ется данному блоку, однако содержимое буферной па¬ 
мяти пока остается прежним. Если свободного буфера 
не оказалось, то аналогичным образом используется 
один из занятых. Если при этом в служебной ячейке 
буфера был установлен признак измененности, то 
данные из буферной памяти переписываются во внеш¬ 
нюю, они заменяют там прежнее содержимое соответ¬ 
ствующего блока. 

Слово ВЬОСК (блок) аналогично по использованию 
слову ВЬ’РРЕК за исключением того, что перепись 
данных из внешней памяти производится в приписан¬ 
ный данному блоку буфер. Разумеется, если данный 
блок уже находится в буферном пуле, то переписи дан¬ 
ных не происходит, и слово ВБОСК возвращает адрес 
этого буфера. 

Наконец, слово Ь'РОЛТЕ (изменить) устанавливает 
признак измененности последнего блока, к которому 
было адресовано обращение через слово ВЕОСК или 
ВІЛТЕК • Таким образом, впоследствии этот блок будет 
автоматически переписан во внешнюю память. 

При реализации обмена с внешней памятью в каче¬ 
стве буферного пула обычно используется связный 
участок оперативный памяти. Пусть его начало зада¬ 
ется константой РІР5Т, а конец—адрес байта, сле¬ 
дующего за последним,— константой ЕІМІТ. (Если 
пул располагается вплотную к концу адресного прост¬ 
ранства, то этот следующий адрес равен нулю!) Буфера 
в пуле располагаются подряд, каждый начинается двух¬ 
байтной ячейкой, в которой записывается номер при¬ 
писанного блока, причем старший разряд используется 
под признак измененности. Далее идет буферная память 
для блока размером 1024 байта, завершается буфер 
еще одной служебной ячейкой, в которой записан ноль 
(ее назначение указано в п.2.8). Пусть переменные 
РКЕѴ и УЗЕ указывают на текущий используемый 
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буфер и следующий, который будет выдан при запросе 
на свободный буфер. Определим слово -(-ВІЯ 7 , которое 
вычисляет адрес буфера, следующего в пуле за пере¬ 
данным, и возвращает признак несовпадения его с те¬ 
кущим: 


: +ВІІР ( А1 ---> А2,Р ) 1024 + 4 + 

ошр ишт - ір онор рінзт тнеы 

ОШР РКЕ V в - ; 

Пусть служебные слова КВЬК АД’ и \ѴВЬК АД 
выполняют чтение блока с указанным номером в задан¬ 
ную область оперативной памяти и запись из нее. Тогда 
с учетом принятых условий слова, выполняющие работу 
с внешней памятью, можно задать так: 

І ВІІРРЕР ( N ---> А ПРИПИСАТЬ БЛОКУ N БУФЕР) 
иЗЕ в ОШР Ж ( ВЕРНЕМ ЭТОТ БУФЕР) 

вес і N +ВІІР іжти иізЕ ; ( устанавл.следующий > 
не е о< ( признак измененности?) 
ір на 2+ не е 32767 аыо иви тнеи 

не ! ( приписали НОВОМУ БЛОКУ) 

не РНЕѴ ! Н> 2+ I 

( ВЮСК ( N ->А: АДРЕС БУФЕРА С ДАННЫМИ БЛОКА) 

>н рнеѵ а оир не - оур + < текущий - тот хе?) 


ІР ( 

НЕТ) 

В Е ВIN +ВІІР 

0 а 

ІР 

0Я0Р 

на 

вирРЕн 

оир на нвьк 2 - тнеы 

оир 

в не 

- 

оир' + 

о» иити ошр рнеѵ і 

ТНЕИ 

н> 

0Н0Р 

2 + ( 


і УР0АТЕ ( - 

-->) 

рнеѵ е 

в 32768 ОН РНЕѴ а ! 


Для записи всех измененных буферов во внешнюю 
память служит слово $АѴЕ 7 -ВІІРР'ЕК$ (сохранить 
буфера): 

: 5АѴЕ-ВІІРРЕН5 < ---> ) 

иміт рінзт оо і а З27бв аыо 

ІР I а 32767 АИО ОШР I і 
I 2+ БИАР ИВІК ТНЕИ 
1028 +Ю0Р \ 

При исполнении слова 8АѴЕ-ВЕЕКЕК8 все буфера 
остаются приписанными прежним блокам. Слово КЬ’311 
(очистить) переписывает все исправленные блоки во 
внешнюю память и освобождает буфера. Многие реали¬ 
зации имеют слово ЕМРТУ-ЕШРРЕК5 (опустошить 
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буфера), которое освобождает буферный пул, не пере¬ 
писывая исправленные блоки: 

: ЕМРТѴ-ВУРРЕКЗ ( - —> ) 

І.ІМІТ РI К 5 Т ВО О I @ ! 1028 +Ь00Р і 

і Р1115Н < ---> ) ЗАѴЕ-ВиРРЕКЗ ЕИРТѴ-ВУРРЕКБ \ 

Внешняя память форт-сиетемы в основном исполь¬ 
зуется для хранения форт-текстов. Блок внешней 
памяти с форт-текстом называется экраном и условно 
разбивается на 16 строк по 64 литеры в каждой. Такой 
формат экрана сложился традиционно и закреплен 
в стандарте. 

Программист создает и исправляет экраны во внеш¬ 
ней памяти, используя встроенный редактор форт-систе¬ 
мы. Как и в случае встроенного ассемблера, стандарт 
не определяет конкретный вид и состав его команд, 
поскольку это в значительной степени определяется 
функциональными возможностями и характеристиками 
конкретных терминалов и средствами работы с ними. 
Обычно слова-команды текстового редактора составля¬ 
ют отдельный список слов с именем ЕОГГОР (редак¬ 
тор), базирующийся на списке РОРТН. Для распечатки 
редактируемого экрана на терминале чаще всего ис¬ 
пользуют слово ІД$Т (распечатать), которое, кроме 
того, сохраняет номер экрана в служебной переменной 

5СК: 


і ЬІБТ 

< N ---> 

> вир зек ! 

СК ." 

ЭКРАН 11 

00 Р . вюск 

16 0 

00 011Р 

I 64 * + 

СК I 

3 .К 

5РАСЕ 64 ТУРЕ ЬООР СКОР 


Вначале печатается номер данного экрана, затем его 
строки. Перед каждой строкой печатается ее номер — 
число в диапазоне от 0 до 15. По завершении редакти¬ 
рования исправленные экраны можно записать во внеш¬ 
нюю память словом РИ;81І . 

2.8. Интерпретация входного потока 

Собственно работа форт-системы заключается 
в распознавании и исполнении слов-команд, которые 
программист вводит с терминала. Ввод осуществляется 
построчно: набрав нужный текст, программист нажи¬ 
мает специальную управляющую клавишу, сообщая тем 
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самым о завершении ввода. Форт-система размещает 
введенный текст в специальном буфере для ввода с тер¬ 
минала, который располагается в адресном простран¬ 
стве оперативной памяти. Адрес начала этого буфера 
дает стандартное слово ТІВ (сокращение от ТЕХТ 
ІХРІ.'Т ВІ'РЕЕК — буфер для ввода текста), его длина 
хранится в стандартной переменной # ТІВ . Данный 
буфер представляет собой входной поток, из которого 
слово \\ г ОРЭ выбирает слова. По исчерпании входного 
потока форт-система вводит в этот буфер новый текст, 
получаемый от программиста. При возникновении 
какой-либо ошибочной ситуации форт-система прекра¬ 
щает дальнейшую интерпретацию текущего содержи¬ 
мого этого буфера и, выдав соответствующее сообщение 
программисту, заполняет буфер новым текстом, который 
после этого вводит программист. 

Альтернативой вводу текста с терминала является 
ввод из внешней памяти форт-системы. Переключением 
входного потока на внешнюю память и обратно на 
терминал управляет стандартная переменная ВЬК 
(сокращение от ВЕОСК — блок), значение которой 
проверяется каждый раз в слове \УОКО . Если это нуль, 
то в качестве входного потока служит буфер ТІВ , в про¬ 
тивном случае это значение рассматривается как номер 
блока внешней памяти, который используется как вход¬ 
ной поток (этот блок переносится в оперативную память 
словом ВЕОСК ). Текущая позиция во входном потоке 
хранится в стандартной переменной д> І\ (от IX — 
вход) и в случае ввода с терминала изменяется в пре¬ 
делах от 0 до значения фТІВ , а при вводе из внешней 
памяти — в диапазоне от 0 до 1024. 

Обычно конец входного потока в оперативной па¬ 
мяти отмечается нулевым кодом (именно для этого 
в буферном пуле после памяти для данных блока резер¬ 
вируется еще одна ячейка). Слово \ѴОКО , «натыкаясь» 
на нулевой код, возвращает в качестве результата 
пустую строку с нулевым значением счетчика литер, 
при этом в список ЕОКТІІ включается словарная статья 
для такого «пустого» слова. Оно имеет признак немед¬ 
ленного исполнения и поэтому всегда исполняется 
назависимо от текущего состояния текстового интер¬ 
претатора. Его исполнение состоит в прекращении 
интерпретации данного входного потока и тем самым 
позволяет избежать дополнительных проверок на ие- 
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черпание. Обычно в реализациях языка Форт опреде¬ 
ляется слово ІХ’ТЕРРЕЕТ (интерпретировать), выпол¬ 
няющее интерпретацию текущего входного потока. 
Оно представляет собой бесконечный цикл по вводу 
и исполнению (или компиляции) слов: 

: ПШКРКЕТ і ---> ) БЕб і N БІ_ ^ □ пі) РІЫО 
ІР < ПРОВЕРИТЬ ПРИЗНАК ІМИЕОІАТЕ) 

1+ ІР ЕхЕСЫЕ 

ЕИ5Е 51 А Т Е @ ІР , Е И 5Е ЕиіііТЕ ТНЕМ 

Т И Е N 

ЕИ5Е ( МОЖЕТ БЫТЬ ЭТО ЧИСЛОМ 

мим&ЕР брі_ е і+ 

ІР [СОМРНЕІ гИТЕЙАБ 

ЕЬ5Е БРйР С- С О М Р11Е 3 ^ I ГЕБ АИ ТИЕМ 

ТНЕЫ А6АIN ; 

В приведенном примере конструкция ВЕСП.ѴАОАІХ 
определяет бесконечный цикл. 

Слово АОАІІХ выполняет безусловный переход на 
начало цикла. 

В случае если очередное введенное слово не найдено 
в словаре, исполняется слово ГѵШМВЕР , которое 
пытается воспринять его как запись числа в соответст¬ 
вии с текущим основанием системы счисления — зна¬ 
чением переменной ВАЗЕ . Если это удалось, то слово 
ХЬ’МВЕЕ возвращает значение числа как значение 
двойной длины и дополнительно в переменной ОР\^ 
сообщает позицию десятичной точки в нем ( — 1, если 
точки в записи числа не было). В противном случае 
возникает ошибочная ситуация «Слово не найдено», 
и интерпретация прекращается. Если же введенное 
слово оказалось числом, то в зависимости от наличия 
в нем точки оно рассматривается как число двойной 
или одинарной точности. Таким образом, пустое сло¬ 
во — ограничитель входного потока — прекращает 
исполнение слова ІМТЕНРРЕТ и возобновляет испол¬ 
нение слова, его вызвавшего: 

: X Б ■ ОБОР ; IММЕОI АТЕ 

Здесь X обозначает пустое слово. 

Таким образом, работу форт-системы можно задать 
таким бесконечным циклом: 



: ФОРТ-СИСТЕМА < ---> ) 

ВЕ 61N СР >" ( ПРИГЛАШЕНИЕ К ВВОДУ) 

ТІВ 80 ЕХРЕСТ ( ВВЕСТИ ТЕКСТ С ТЕРМИНАЛА) 

ЗРАЫ в #ТІ 8 ' ( УСТАНОВИТЬ ЕГО ДЛИНУ) 

О ТІВ «ТІВ в + С* ( УСТАНОВИТЬ ОГРАНИЧИТЕЛЬ) 

О >114 1 О БЬК 1 ( УСТАНОВИТЬ ВХОДНОЙ ПОТОК) 

ШЕВРРЕТ < ИНТЕРПРЕТИРОВАТЬ ВВЕДЕННЫЙ ТЕКСТ) 

5ТАТЕ § 0= ІР ОК" ТНЕЫ < ПОДТВЕРЖДЕНИЕ) 

АБА IN ; 

Для переключения входного потока на внешнюю 
память стандарт предусматривает слово ЬОАЭ (за¬ 
грузить) : 

: ЮАО ( N1 НОМЕР-^ ИНТЕРПРЕТИРОВАТЬ ЭКРАН) 

>ІЫ Ѳ ІР ВЬК @ < СОХРАНИТЬ ТЕКУЩИЙ) 

ВЬК 1 О ЛЫ 1 ( УСТАНОВИТЬ НОВЫЙ) 

I ЫТЕРРРЕ Т ( ПРОИНТЕРПРЕТИРОВАТЬ ЕГО) 

Р> ВІ.К ! К> >ІЫ 1 [ < ВЕРНУТЬСЯ К ПРЕЖНЕМУ) 

Параметром слова ЬОАЭ является номер экрана (бло¬ 
ка) для интерпретации. Очевидно, что приведенное 
нами выше определение допускает рекурсивное исполь¬ 
зование слова ЬОАО внутри экранов во внешней 
памяти. 

Некоторые реализации предусматривают слово ТНКЬІ 
(сквозь) для последовательной интерпретации диапа¬ 
зона экранов: 

: ТИРУ ( N1 , N2 ---> ИНТЕРПРЕТИРОВАТЬ ЭКРАНЫ) 

( ОТ N1 ДО N2 ВКЛЮЧИТЕЛЬНО) 

1+ 5 ЫАР БО I ЬОАО ЬООР ; 

Для продолжения интерпретации следующего экрана 
часто используется слово —, логически сцепляющее 
следующей экран с данным: 

: --> (-> ) 81К @ 0 = 

АВОРТ" НЕДОПУСТИМОЕ ИСПОЛЬЗОВАНИЕ 

о >іы 1 век е і+ вьк \ ; іммевіате 

В этом случае интерпретации сцепленных экранов 
нужно «загрузить» словом ЬОАЭ только первый из этих 
экранов. 
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2.9. Целевая компиляция 

и модель форт-системы 

Решая задачу на языке Форт, программист рас¬ 
ширяет исходный набор слов-команд форт-системы, 
добавляй к нему новые определения. Его конечной 
целью является определение некоторого «главного» 
слова, исполнение которого и решает поставленную 
задачу. Главное слово можно запустить на счет через 
текстовый интерпретатор форт-системы, если ввести 
имя слова в качестве очередной форт-команды. Во 
время исполнения этого слова используются ранее 
введенные определения вспомогательных слов и (прямо 
или косвенно) ряд слов исходной форт-системы. 

Во многих форт-системах предусмотрена возмож¬ 
ность сохранения текущего состояния словаря во внеш¬ 
ней памяти в качестве двоичного форт-модуля. Это 
позволяет при последующих обращениях к данной за¬ 
даче сразу начинать счет, запуская на исполнение ее 
главное слово. При таком подходе естественно возни¬ 
кает задача минимизации используемых средств 
и построения конечного программного продукта, уже 
не зависящего от форт-системы. Такую задачу позво¬ 
ляет решать пакет целевой компиляции , который явля¬ 
ется ценным инструментальным средством при созда¬ 
нии прикладного программного обеспечения на языке 
Форт. 

Целевая компиляция позволяет создавать единый 
независимый рабочий модуль исходя из комплекса 
взаимосвязанных определений на языке Форт. Состав¬ 
ной частью этого комплекса является запись опреде¬ 
лений всех стандартных слов, которая образует модель 
форт-системы и над которой «надстраиваются» опреде¬ 
ления данной задачи. В тексте модели обычно выделя¬ 
ется запускающая часть , которая обеспечивает ини¬ 
циирование работы и переход к исполнению главного 
слова в данном комплексе определений. Если в реали¬ 
зации есть пакет целевой компиляции, его часто исполь¬ 
зуют для раскрутки самой форт-системы исходя из 
некоторой ее начальной версии. В этом случае главным 
является приводившееся выше слово ФОРТ-СИСТЕМА, 
которое выполняет бесконечный цикл по вводу вход¬ 
ного потока с терминала и его текстовой интер¬ 
претации. 
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Входной текст для целевой компиляции помимо 
собственно текста на языке Форт содержит еще ряд 
слов-директив, позволяющих выполнять компиляцию 
за один проход но тексту. Эти директивы включают, 
в частности, средства предописания слов для того, 
чтобы некоторые слова можно было использовать рань¬ 
ше их определения (например, чтобы в запускающей 
части, с которой обычно начинается входной текст, 
указать имя главного слова, которое будет определено 
только в конце). Важной возможностью является уп¬ 
равление построением целевой словарной статьи: не¬ 
которые или даже все статьи можно создать без заго¬ 
ловка, значительно сократив за счет этого размер 
рабочего модуля. Кроме того, язык директив обычно 
содержит средства для диагностики, распечатки карты 
создаваемого модуля, построения таблицы перекрест¬ 
ных ссылок, сбора и распечатки статистической инфор¬ 
мации об использовании тех или иных слов. 

Пакет целевой компиляции представляет собой 
отдельно загружаемый пакет, написанный на языке 
Форт. В начале работы он резервирует область памяти 
для целевого адресного пространства, в которой строит 
двоичный код конечного программного продукта по 
мере обработки входного текста. После завершения 
целевой компиляции построенный модуль может быть 
выгружен во внешнюю память для дальнейшего исполь¬ 
зования в качестве независимого модуля в соответст¬ 
вии с заложенными в него соглашениями о связях. 

В состав пакета целевой компиляции входят целе¬ 
вой ассемблер и целевой компилятор. Целевой ассемб¬ 
лер отличается от обычного встроенного ассемблера 
форт-системы только тем, что строит машинный код 
не в инструментальном адресном пространстве от 
текущей вершины словаря, которая дается словом 
НЕКЕ (здесь), а в целевом. Указатель в целевом адрес¬ 
ном пространстве обычно обозначается словом ТНЕКЕ 
(там) внутри самого пакета, который пользуется обоими 
этими указателями. Для того чтобы получить целевой 
ассемблер из исходного инструментального, как пра¬ 
вило, достаточно оттранслировать его в контексте 
других определений компилирующих слов ( , , С, , 
АЬЕОТ и т. д.), которые выполняют те же действия, 
но в целевом адресном пространстве, а не в инструмен¬ 
тальном. 
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Задача целевое о компилятора состоит в построении 
высокоуровневого шитого кода в целевом адресном 
пространстве, причем все ссылки на статьи, включая 
и ссылки на все стандартные форт-слова, должны также 
относиться к этому пространству. Для решения этой 
задачи обычно поступают следующим образом. В списке 
слов целевой компиляции переопределяют все стан¬ 
дартные определяющие слова (:, СОМ5ТАѴГ, ѴАКІ- 
АВЕЕ, ССЮЕ и т. д.) таким образом, чтобы они строили 
две статьи: одну стандартным образом, но в целевом 
адресном пространстве, а другую — специальным 
образом — в инструментальном. Исполнение инст¬ 
рументальной статьи компилирует ссылку, соответ¬ 
ствующую целевой статье данного слова, как очередной 
элемент шитого кода на вершину целевого словари. Об¬ 
рабатывая стандартным текстовым интерпретатором 
высокоуровневое определение в контексте таких инстру¬ 
ментальных определений, мы получаем в целевом 
пространстве соответствующий шитый код. Аналогичным 
образом должны быть переопределены и все слова 
с признаком немедленного исполнения, реализующие 
структуры управления и выполняющие какую-либо 
компиляцию во время обработки определений ( ІР, 
ТНЕМ , ; и т. д.). Эти слова в отличие от их стандартных 
прототипов должны компилировать статьи и переходы 
для целевого адресного пространства, а не инструмен¬ 
тального. Совокупность перечисленных определений 
и образует целевой компилятор. 

При построении конечного программного продукта 
путем целевой компиляции возможно существенное 
уменьшение его размера. Кроме уже упоминавшегося 
исключения из словарных статей ненужных заголов¬ 
ков целевая компиляция позволяет вести учет всех 
используемых данной задачей слов и автоматически 
собрать для нее специальное ядро поддержки, состоя¬ 
щее только из тех слов, которые в ней действительно 
используются. При этом возможна еще большая опти¬ 
мизация за счет непосредственной подстановки опре¬ 
делений в место их вызова для тех слов, которые 
оказались использованными только один раз. Некото¬ 
рые пакеты целевой компиляции дают возможность 
довести такую подстановку до уровня машинного кода, 
при этом высокоуровневые определения рассматри¬ 
ваются как своеобразные макроопределения. После 
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выполнения такой макрогенерации результирующий 
машинный код уже не требует адресного интерпрета¬ 
тора и представляет собой линейную последователь¬ 
ность непосредственно исполняемых машинных команд. 

Именно этот прием был применен, например, при 
создании известного пакета машинной графики ГРА- 
ФОРТ для персонального компьютера фирмы ИБМ 
и компьютеров фирмы «Эппл» ( Арріе , США). Срав¬ 
нительно большой объем получившегося машинного 
кода компенсировался чрезвычайно высоким быстро¬ 
действием, недостижимым для традиционных языков 
программирования. В то же время совершенно очевид¬ 
но, что разработать и отладить программу такого 
объема на языке ассемблера вручную практически 
невозможно. 

Описанный подход к целевой компиляции применим 
и в том случае, когда целевая ЭВМ, для которой строит¬ 
ся конечный программный продукт, отличается по своей 
архитектуре и системе команд от инструментальной. 
В этом случае изменения касаются только целевого 
ассемблера и определений в машинном коде, которые 
должны отвечать системе команд целевой ЭВМ. Такое 
использование целевой компиляции в качестве инст¬ 
рументального кросс-средства все чаше имеет место 
при создании программного обеспечения встроенных 
микропроцессоров и специализированных микропроцес¬ 
сорных устройств на их основе. 



Глава 3 

Примеры программных разработок 


В этой главе приведены примеры реализации 
отдельных программных средств — небольших удобных 
расширений (инфиксная форма записи, локальные 
переменные, конструкция «переключатель», векторное 
поле кода) — и целых инструментальных систем на 
базе языка Форт. Основное внимание уделено методо¬ 
логическим аспектам использования Форта как рас¬ 
ширяемого языка. Все приведенные примеры отражают 
опыт использования Форта в конкретных разработках. 

3.1. Средства отладки форт-программ 

Программы на языке Форт — определения 
слов — кодируются и вводятся в ЭВМ методом «снизу 
вверх», т. е. начиная с элементарных, использующих 
только стандартные слова форт-системы, и кончая 
определением главного слова, использующего уже 
введенные. Такой порядок естественным образом пред¬ 
полагает немедленную отладку вводимых определений, 
поскольку определение готово к исполнению сразу же 
после ввода. Отладка облегчается тем, что механизм 
взаимодействия модулей упрощен до предела: через 
стек данных, который программист может сам запол¬ 
нить значениями параметров перед вызовом отлажива¬ 
емого слова. 

Для распечатки текущего состояния стека данных 
и стека возвратов многие реализации имеют слова 
3. и К. . В сочетании со словом ОЬ'МР , которое рас¬ 
печатывает область памяти, и словом ? 

: ? (А —> ) в . ; 

которое печатает значение, находящееся по указанному 
адресу, эти слова создают богатые возможности для 
диалоговой отладки форт-слов. 




То обстоятельство, что в основе языка Форт лежит 
интерпретатор и при исполнении каждого слова управ¬ 
ление проходит через точку МЕХТ адресного интерпре¬ 
татора форт-системы, дает дополнительные возмож¬ 
ности для организации автоматического слежения за 
исполнением скомпилированных слов. Программист 
может организовать динамическую подмену точки 
МЕХТ на такую, которая, выполняя те же действия по 
переходу к интерпретации очередной ссылки, выпол¬ 
няет и заданные отладочные действия. Поскольку 
в момент исполнения точки ХЕХТ через адрес поля кода 
имеется доступ к адресу поля имени словарной статьи, 
то отладочные действия можно формулировать, зада¬ 
вая имена интересующих программиста слов. 

Например, по специальному слову ОМ-МЕХТ (ПРИ- 
СЛЕД) строится список слов (в виде списка адресов 
компиляции), подлежащих отслеживанию. В част¬ 
ности, его можно задать, как все слова, определения 
которых расположены в словаре выше некоторого адре¬ 
са. Для всех этих слов указываются отладочные дей¬ 
ствия, состоящие, как правило, из распечатки имени 
слова и стека данных в момент перехода к его исполне¬ 
нию. В некоторых случаях можно проводить анализ 
стека возвратов и отслеживать возврат из определений, 
распечатывая результаты из стека данных на момент 
возврата. Специальные слова ТКАСЕ-СЖ (СЛЕЖ-ВКЛ) 
и ТРАСЕ-ОРР (СЛЕЖ-ВЫКЛ) включает и выклю¬ 
чают механизм отладочного слежения, подменяя 
или восстанавливая точку \ : ЕХТ адресного интер¬ 
претатора. 

С помощью этого же механизма можно ввести защи¬ 
ту от зацикливания, например подсчитывая в точке 
МЕХТ число исполненных слов и возобновляя диалог 
при достижении некоторого заданного значения этого 
счетчика. Если данная ЭВМ имеет встроенный таймер 
и операционная система позволяет обрабатывать асин¬ 
хронные выходы по истечении заданного интервала 
времени, то этот механизм можно также использовать 
для предохранения от зацикливания. В процедуре 
обработки выхода по исчерпанию временного интервала 
нужно подменить точку ЫЕХТ на такую, которая выпол¬ 
нит возврат к диалогу с программистом. При этом 
программист может получить исчерпывающую инфор¬ 
мацию о месте такого «прерывания от таймера». 
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Другой полезный механизм отладочного слежения 
позволяет переключаться на диалог с программистом 
в момент исполнения заданного слова и реализуется 
через подмену поля кода в заданной словарной статье. 
Для выполнения такой подмены нужно определить 
специальное слово, например, ЗТОР (стойте!), которое 
выбирает имя слова из входного потока и засылает 
в ноле кода его словарной статьи адрес специального 
кода. Прежнее значение поля кода сохраняется в спе¬ 
циально резервируемой для этого ячейке словаря. 
Новый код для подмененного таким образом слова 
состоит в переключении на текстовую интерпрета¬ 
цию входного потока, так что все необходимые отла¬ 
дочные распечатки и установки значений программист 
задает непосредственно в диалоге. Слово СО (идите!) 
завершает диалог и продолжает исполнение программы, 
при этом отлаживаемое слово, вызвавшее останов, 
исполняется в прежнем виде (для этого используется 
сохраненное «настоящее» значение из его поля кода). 
Можно предусмотреть специальное слово для продол¬ 
жения работы без исполнения рассматриваемого слова. 

Описанные механизмы, являясь достаточно просты¬ 
ми, вместе с тем существенно облегчают отладку слож¬ 
ных программ. Их сильная зависимость от реализации 
не позволяет сделать эти определения переносимыми. 
Вместе с тем именно эта черта позволяет реализовать 
такие отладочные средства максимально удобным для 
программиста способом с учетом конкретных особен¬ 
ностей данной реализации и ее операционного окру¬ 
жения. 

Удобным вспомогательным средством, позволяющим 
быстро находить место останова в терминах входного 
текста на языке Форт, является символьная распечатка 
шитого кода. Поскольку скомпилированная ссылка 
представляет собой адрес поля кода словарной статьи, 
то по ней через слово > МАМЕ можно вычислить адрес 
поля имени и напечатать это имя словом Ш. : 

: 10. < МРА —->) соимт 31 АМО ТУРЕ 5РАСЕ ; 

Слово СОЬ'ХТ в качестве счетчика длины выдает зна¬ 
чение первого байта поля имени; поскольку старшие 
разряды этого байта используются под специальные 
признаки, то необходимо специальное преобразование, 
определяемое представлением счетчика, чтобы получить 
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истинную длину поля имени. Константа 31 как огра¬ 
ничение на длину имени слова дается стандартом языка. 

В программе распечатки последовательности ссылок 
надо предусмотреть специальную обработку некоторых 
адресов, вслед за которыми скомпилирована не ссылка 
на очередную статью, а некоторое другое значение. 
Такими «особыми» ссылками в стандарте языка яв¬ 
ляются слова для выполнения переходов ВКАЫСН и 
РВКАІЧСН, для реализации циклов (00) , (БООР) и 
( + ЕООР), для исполнения литералов ІЛТ и ч 2ІЛТ и 
некоторые другие. 

3.2. Инфиксная запись формул 

Для многих программистов трудным барьером 
на пути к овладению языком Форт оказывается исполь¬ 
зуемая в нем обратная польская форма для записи 
выражений. Опишем простую надстройку над языком 
Форт, которая позволяет записывать формулы в обыч¬ 
ной инфиксной форме с использованием скобок. Будем 
по-прежнему считать все элементы такого выражения 
(скобки, знаки операций и элементарные термы) отдель¬ 
ными форт-словами и разделять их при записи пробе¬ 
лами. Задача состоит в том, чтобы вычисления на стеке 
автоматически перегруппировывались исходя из инфик¬ 
сной формы записи. Например, чтобы вместо текста 
2 5 + 7 3 — * можно было писать ( ( 2 + 5 ) * ( 7 + 
+ 3 ) ) . Внешние скобки нужны для того, чтобы от¬ 
мечать конец выражения. Пр и желании это можно 
задавать и каким-нибудь другим способом. 

Для операций в инфиксной записи вводится понятие 
приоритета (старшинства), которое определяет порядок 
вычислений при отсутствии скобок. Приоритет обозна¬ 
чается целым числом, и операции с меньшим приорите¬ 
том выполняются после операций с большим приорите¬ 
том. Например, в выражении А+В/С подразумевается 
следующая расстановка скобок: (А+(В/С)), т. е. 
сначала выполняется деление и только потом сложе¬ 
ние, потому что приоритет деления выше приоритета 
сложения. В случае равных приоритетов, например 
в выражении А + В + С, будем выполнять операции 
слева направо: ((А + В)+С). Традиционно использу¬ 
емые приоритеты двухместных операций показаны 
в табл. 3.1. Все одноместные операции (АВЗ, іМЕОАТЕ, 
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Таблица 3.1. Приоритеты двухместных операций 


Приоритет 

і 

2 

3 

4 

5 

1 6 

7 

8 

Операция 

ОР 

ХОР 

АКО 

і 

1 

< 

> 

+ 

і 

і 

і 

і . -- --— 

* 

/ 

МОП 

** 


МОТ и др.) имеют максимальный приоритет (обычно 9). 

Опишем вспомогательную структуру данных — стек 
ОПРЦ , элементами которого являются пары значений: 
приоритет операции и адрес кода, который ее вычисляет. 
Размер стека определяется максимальной глубиной 
вложенности формул, которую мы допускаем: СКЕАТЕ 
ОПРЦ МЕРЕ 2+ , 40 АЁЬОТ. Первым элементом 
в поле параметров слова ОПРЦ является указатель 
вершины этого стека (адрес первого свободного байта), 
далее зарезервирована память на 5 элементов по 4 бай¬ 
та (два значения) каждый. По аналогии со словами 
> Р , К@ и Р> определим слова для работы со стеком 

ОПРЦ: 


: >0ПРЦ 

< А --->) 

ОПРЦ 

§ ! 2 ОПРЦ +! | 

* ОПРЦв 

< ---) А) 

ОПРЦ 

в 2- в | 

: ОПРЦ) 

( —-> А) 

ОПРЦ® 

-2 ОПРЦ +! | 


Обработка операций в инфиксной форме состоит в том, 
что операция не выполняется, а помещается вместе со 
своим приоритетом на стек операций, выталкивая из 
него на исполнение все операции с меньшим или равным 
приоритетом. В состоянии исполнения вытолкнутая 
операция исполняется, а в состоянии компиляции — 
компилируется. Предполагая, что в стеке ОПРЦ сна¬ 
чала размещается адрес поля кода для исполнения 
операции, а за ним приоритет, определим слово для 
такого выталкивания операций: 

*. >0ПРЦ> ( М: ПРИОРИТЕТ-> ) >Р ВЕ6ІМ ОПРЦ® 

Р® < МОТ ИННЕ 0ПРЦ> 0В0Р ОПРЦ) < СРА) 

ЗТАТЕ ® ІР , Е1.5Е ЕХЕСІЯЕ ТНЕИ РЕРЕАТ Р) ОРОР * 

Теперь введем определяющие слова для двухместных 
и одноместных операций и переопределим через них 
стандартные арифметические форт-слова: 
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: 2-ОП ( Ы:ПРИОРИТЕТ-)) >1N в >Р ' < N,СРА) 

Р> >ІИ ! СРЕАТЕ ІММЕОІАТЕ ( М,СРА) , , 

ООЕ5> ( РЕА->) 26 ( N,СЕА) 

Ж >Р Рв >ОПРЦ> Р> Р> >ОПРЦ >ОПРЦ ) 

1 1-ОП ( ->) 9 2-ОП ( 

2 2-ОП ОР 2 2-ОП ХОР 3 2-ОП АМО 4 2-ОП * 

5 2-ОП < 5 2-ОП > 6 2-ОП + 6 2-ОП - 

7 2-ОП * 7 2-ОП / 7 2-ОП МОИ 

1-ОП N01 1-ОП АВ5 1-ОП МЕВАТЕ 

В определении слова 2-ОП используется то обстоятель¬ 
ство, что код для исполнения данной операции обозна¬ 
чается словом, которое этим определяющим словом 
переопределяется. Поэтому перед тем как его имя будет 
выбрано из входного потока словом СРЕАТЕ , текущая 
позиция во входном потоке запоминается на стеке воз¬ 
вратов и после исполнения слова 7 (штрих) вновь 
устанавливается в то же положение для исполнения 
слова СРЕАТЕ . 

Переопределенные слова получают признак немед¬ 
ленного исполнения, чтобы описанные действия по пере- 
упорядочиванию вычислений выполнялись и во время 
компиляции, компилируя нужную последовательность 
операций. В заключение осталось переопределить круг¬ 
лые скобки, явно задающие порядок вычислений: 

I ( 0 >0ПРЦ \ ІММЕОІАТЕ 

і ) 1 >0ПРЦ> 0ПРЦ> ОРОР ( ІММЕОІАТЕ 

Открывающая скобка кладет на стек значение 0 — 
ограничитель для выталкивания операций. Закрываю¬ 
щая скобка выталкивает все операции до ближайшего 
ограничителя и удаляет его из стека. Переопределение 
открывающей скобки делает невозможным ее исполь¬ 
зование в прежнем смысле — как знака комментария. 
Поэтому программисту, вводящему такую надстройку, 
следует подумать и о решении этого вопроса. 

Развивая описанную надстройку дальше, определим 
простой входной язык с описаниями переменных и при¬ 
сваиваниями, которые записываются обычным образом. 
В качестве знака присваивания пусть используется 
слово а в качестве разделителя операторов — 

слово ; . Если переменная использована как получатель 
присваивания (слева от знака := ), то ее исполнение 
оставляет на стеке адрес значения; а если данная пере- 
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менная входит в правую часть присваивания, то ее 
исполнение кладет на стек само значение данной пере¬ 
менной. Для управления поведением переменных на¬ 
шего языка введем рабочую переменную ?ЗНАЧ, 
которая имеет значение 0 при обработке левой части 
присваивания и значение —1 при обработке правой, 
и определим слово ПЕРЕМ для описания переменных 
нашего языка: 

ѴАВІАВІ.Е ?ЗИАЧ 

і ПЕРЕМ СРЕАТЕ 0 , С0Е5> СС0МРП.ЕЭ ИТЕВАІ. 

?ЗНАЧ 6 ІР 5ТАТЕ « ІР С0МРИ.Е в Е1-5Е 6 ТНЕЫ 

ТИЕN ; ІММЕОІ АТЕ 

Для записи присваиваний определим слова : = и ; 
через уже определенные скобки: 

I і« ССОНРНЕ] ( -1 73НАЧ ! | ІНМЕОІАТЕ 
I | ССОМРИЕЗ ) ВТ АТЕ 6 ІР С0НРП.Е БИАР СОМРНЕ ! 

ЕЬ БЕ БИАР ! ТНЕИ О 73НАЧ ! ( ІНМЕОІАТЕ 

Слово := кладет на стек ОПРЦ ограничитель для 
выталкивания операций и устанавливает переменную 
?ЗНАЧ на обработку правой части присваивания. Слово 
; выталкивает со стека ОПРЦ все накопившиеся там 
операции, в результате на вершине стека данных ока¬ 
зывается значение правой части. Непосредственно под 
ним располагается адрес переменной, оставленный 
левой частью данного присваивания. Слова 5\ѴАР 
и ! выполняют присваивание, причем в состоянии ком¬ 
пиляции они компилируются, а состоянии исполнения 
исполняются. В заключение переменная ?ЗНАЧ пере¬ 
устанавливается на режим обработки левой части 
следующего присваивания. 

Благодаря словам : = и ; отпадает необходимость 
в дополнительных внешних скобках для всего выра¬ 
жения. Входной текст в описанном расширении выгля¬ 
дит вполне традиционно: 

ПЕРЕМ А ПЕРЕМ В 
А I а 10 ) В * * 15 | 

А і = ( А + В ) # (А-В) + 2 | 

и вместе с тем это текст на языке Форт! Такие операторы 
присваивания можно исполнять непосредственно или 
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включать в тело определений через двоеточие. Однако 
переопределение точки с запятой усложняет написание 
новых определений в таком расширении. Чтобы решить 
эту проблему, можно предусмотреть специальные сред¬ 
ства для определения новых слов, как и слова для вклю¬ 
чения комментариев. Описанный пример еще раз 
показывает, что средства, которые язык Форт предоста¬ 
вляет программисту, позволяют ему реализовать 
практически любые необходимые инструментальные 
надстройки, исходя из конкретных требований и осо¬ 
бенностей данной задачи и пожеланий пользователей, 
с ней работающих. 

3.3. Локальные переменные 

Стек данных как универсальное средство для 
передачи параметров и результатов между форт- 
словами имеет неоспоримые преимущества. Вместе с тем 
внутри определения он используется для промежуточ¬ 
ных вычислений и размещения значений, которые в них 
участвуют. Это вызывает определенные трудности для 
доступа к такому локальному значению, поскольку его 
положение относительно вершины стека постоянно 
меняемся. 

Для упрощения работы желательно закрепить за 
локальным объектами внутри определения некоторые 
постоянные имена, через которые и осуществлять 
доступ к ним. 

Имеющийся в языке механизм описания переменных 
в данном случае не подходит, поскольку создает гло¬ 
бальные имена, тогда как требуется именовать локаль¬ 
ные объекты, учитывая при этом возможность рекурсив¬ 
ных вызовов. Поставленную задачу решает включение 
в работу дополнительного стека, отличного от стека 
данных. Локальные значения размещаются в этом 
стеке при входе в определение и убираются из него при 
выходе. 

На все время исполнения определения их положение 
относительно вершины стека остается постоянным, 
это позволяет организовать очень простой доступ к 
таким значениям. 

Простейшая надстройка над языком Форт, которая 
позволяет работать с локальными переменными, выгля¬ 
дит так: 
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100 АИОТ НЕКЕ СОМЗТАИТ 1.Р0 < НАЧАЛО ЛОК.СТЕКА) 

VАРIАВЬЕ ІР ( ТЕКУЩАЯ ВЕРШИНА ЛОКАЛЬНОГО СТЕКА) 

: ШТ ( ->) 1Р0 ІР ! ; ІМХТ 

і ЮС ( N1 СЧЕТЧИК->) 1+ 2* ІР в ОѴЕК - ОЫР ІР * ! | 

: ІЖЮС ( ->) 1.Р I I 1.Р +! I 

і II ( N я СИЕЩ->) СКЕАТЕ , ООЕВ > ( РР А-> А) I 1.Р I + I \ 

1 !! ( N1СМЕЩ->) СКЕАТЕ , С0Е8> ( А,РРА->) I ІР I + ! | 

2 II II 4 II 12 6 II 13 в II 14 10 II 15 ( И Т.Д,) 

2 !! !1 4 !! !2 6 !! !3 в !! !4 10 !! !9 ( И Т.Д.) 

Вначале отводится область объемом 100 байт и адрес 
ее конца запоминается как константа ЬРО. Эта область 
будет использоваться как локальный стек, растущий 
в сторону убывания адресов. Переменная ЬР хранит 
указатель на текущую вершину локального стека, ее 
инициализацию выполняет слово І\ІТ, которое при¬ 
сваивает ей значение ЬРО. Слово ЬОС резервирует 
в этом стеке память на N двухбайтных значений, допол¬ 
нительно отводя еще одну ячейку, в которую засылает 
значение N — длину всей области. Обратное дейст¬ 
вие — освобождение памяти — выполняет слово ІЛЧЬОС , 
которое использует сохраненное значение N. Слова 
@@ и !! являются определяющими для двух рядов 
слов, выполняющих разыменование локальных объек¬ 
тов и присваивание им нового значения. Каждый 
локальный объект в пределах одного определения иден¬ 
тифицируется своим номером, который включен в имя 
операций разыменования и присваивания для работы 
с ним. В качестве примера рассмотрим определение 
слова 5ІЫѴ, переставляющего 5 верхних элементов 
стека данных в обратном порядке: 

: 51N7 ( А,В,С,0,Е->Е,0,С,В,А) 5 ЮС 

* 1 ! 2 ! 3 ! 4 ! 3 II @2 @3 14 15 тОС ; 

Приведенная реализация локальных переменных 
предельно упрощена. Ее очевидным усовершенствова¬ 
нием является, например, введение контроля за пере¬ 
полнением и исчерпанием локального стека и включе¬ 
ние действий ЬОС и ІЖЬОС в семантику входа в высо¬ 
коуровневое определение и выхода из него; при этом под¬ 
счет числа локальных объектов может выполняться 
автоматически, аналогично определению адреса пере¬ 
хода в структурах управления. 

Можно пойти еще дальше и вместо прямой нумера¬ 
ции локальных объектов ввести их настоящее описание 
через соответствующее слово внутри определения через 
двоеточие с автоматическим переносом входных пара- 
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метров на локальный стек при входе в такое определе¬ 
ние. Словарная статья для имени локального объекта, 
которая строится по такому описанию, должна распо¬ 
лагаться несколько выше текущей вершины словаря 
и иметь признак немедленного исполнения. Ее действие 
состоит в компиляции обращения к соответствующему 
элементу локального стека. По завершении компиляции 
данного определения все такие временные статьи 
автоматически исключаются из словаря. 

Введение локальных переменных не только упрощает 
программирование, освобождая программиста от не¬ 
обходимости тщательно отслеживать все изменения 
на стеке, но и сокращает размер скомпилированной 
программы, поскольку из нее исчезают сложные после¬ 
довательности из слов ОѴЕК , ЭЕ’Р , КОТ , РІСК и 
других, обычно используемых для доступа к локальным 
значениям. Такое неожиданное сочетание приятного 
с полезным — одна из многих удивительных сторон 
языка Форт, которые открываются программисту при 
знакомстве с ним. 

3.4. Векторное поле кода 

В языке Форт с каждым словом-командой свя¬ 
зано некоторое действие, определяющее семантику 
данного слова. В словарной статье, которая является 
внутренним представлением форт-слова, это действие 
задано через поле кода. В случае косвенного шитого 
кода оно содержит адрес машинной программы, испол¬ 
нение которой и составляет действие данного слова. 
Эта программа образует исполняющую часть опреде¬ 
ляющего слова, через которое данное слово было 
создано, и параметризуется адресом поля параметров 
его словарной статьи. 

Описанный механизм является чрезвычайно мощ¬ 
ным и в то же время очень компактным в реализации. 
Вместе с тем и он может быть улучшен с учетом конкрет¬ 
ной цели. Заметим, что этот механизм предписывает 
исполнение одной и той же программы для всех случаев 
применения данного слова, в то время как в каждом 
случае слово употребляется в определенном контексте, 
и его исполнение, вообще говоря, зависит от этого 
контекста. Разумеется, анализ контекста можно вклю¬ 
чить в программу слова, если закодировать контекст 
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через дополнительный параметр или глобальную пере¬ 
мен ную. 

Именно в этом, например, заключается действие 
стандартного слова ЫТЕРАЬ, которое анализирует 
текущее состояние текстового интерпретатора через 
значение переменной 5ТАТЕ . Если это значение — 
нуль (состояние исполнения), то это слово больше ниче¬ 
го не делает. При ненулевом значении (состояние 
компиляции) оно снимает значение с вершины стека и 
компилирует его как литерал на вершину словаря. 

Пример другого подхода дает описанная в п. 3.2 
реализация оператора присваивания в традиционной 
инфиксной форме записи. В зависимости от текущего 
значения переменной ?ЗНАЧ, которое изменяется сло¬ 
вами : = и слова, обозначающие переменные, остав¬ 
ляют на стеке либо адрес, либо значение данной пере¬ 
менной. 

Предлагаемое улучшение связано прежде всего 
с использованием переменных. В стандартном опреде¬ 
лении при исполнении переменной на стеке будет остав¬ 
лен адрес ячейки (поля параметров), в которой хранит¬ 
ся ее значение. Однако сам по себе этот адрес редко бы¬ 
вает нужен, обычно он используется либо для получения 
текущего значения переменной с помощью слова @ , 
либо для засылки в нее нового значения словом !. 
Поэтому можно считать, что с переменной связано не 
одно действие, а три — получение текущего значения, 
засылка нового и получение адреса. Какое именно дей¬ 
ствие требуется в каждом конкретном случае, опреде¬ 
ляется контекстом. 

Введем слово (ЗЕІАЫ (от С^УАМИТУ — величина), 
которое определяет новое слово с тремя описанными 
выше действиями. В словарной статье таких слов 
вместо одного поля кода создается три — по одному 
на каждое действие. Будем обозначать их адреса через 
ОСЕА, 1СРА и 2СРА соответственно (рис. 3.1). За 
ними располагается ячейка, отведенная под текущее 
значение данной переменной, обозначим ее адрес через 
ОРРА. Если рассматривать такую структуру как обыч¬ 
ную словарную статью, то иоле ОСРА является полем 
кода, а поля 1СРА,2СРА и ОРРА занимают поле пара¬ 
метров. Если в шитый код скомпилирован адрес ОСРА , 
то при исполнении соответствующего кода в качестве 
адреса поля параметров выступает адрес 1СРА . Анало- 
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Рис. 3.1. Структура статьи 
с векторным полем кода 


гично для адреса 1СРА полем параметров служит 
2СРА , а для 2СРА — адрес ОРРА . Поэтому описанные 
выше три действия можно задать так: 

: ЗНАЧ 00Е6> < 1СРА->ІЧіЗНАЧ> 4 + @ ; 

І ПРИСВ БОЕВ) ( N:ЗНАЧ, 2СРА->) 2 + ' ; 

: ААР 00Е5> ( 0РРА->0РРА ) { 


Нетрудно увидеть, что действие АДР совпадает со 
стандартным действием для переменной, состоящим 
в том, что адрес поля параметров кладется на стек. 
Определим теперь слово С^САК , используя слово 
ПРИСВ в качестве вспомогательного: 

І ОІШ < ->) СЯЕАТЕ ЬАТЕБТ МАМЕ> ИОР « ( КОД 2СРА) 

ПРИСВ БИАР в < КОД 2СРА,КОД ІСРА) , , 0 , 

БОЕВ) < КОД ДЛЯ ОСРА) 4 + в ; 

Создающая часть этого определения использует поле 
кода создаваемой статьи как рабочую ячейку, из ко¬ 
торой сначала извлекается значение для 2СРА , заслан¬ 
ное туда словом СКЕАТЕ, и затем значение для ІСРА , 
которое засылается туда словом ПРИСВ . Окончатель¬ 
ное значение в этой ячейке устанавливается словом 
ООЕ5> . Описание переменной через слово (^ШАХ 
выглядит так же, как описание обычной переменной: 
РС'АХ X . Однако теперь при исполнении слова X на 
стеке будет оставлено текущее значение переменной 
из ее поля ОРРА. Выполнение двух других действий 
задают слова ТО (предлог «в») и АТ (предлог «из»): 
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: ТО 2+ 5ТАТЕ @ ІР , Е1.5Е ЕХЕСОТЕ ГНЕМ | 

ІММЕОІАТЕ 

і АТ ' 4 + ВТАТЕ в ІР , Е1.8Б ЕХЕСУТЕ- ТНЕІМ * 

ІММЕОІ АТЕ 

Эти слова имеют признак немедленного исполнения 
и в состоянии компиляции (внутри определения через 
двоеточие) компилируют коды 1СРА и 2СРА для сле¬ 
дующего слова. В состоянии исполнения соответствую¬ 
щие действия исполняются. Теперь, чтобы присвоить 
переменной X значение 100, нужно выполнить текст 
100 ТО X, а для получения адреса — текст АТ X. 

Такое усовершенствование, как и введение локаль¬ 
ных переменных, не только упрощает программирова¬ 
ние, но и сокращает объем скомпилированного кода. 
Из текста программ исчезает слово (а>, применявшееся 
для разыменования адреса переменной. В результате 
вместо двух ссылок — на поле СРА для переменной 
и статью для (а) ■— в шитом коде присутствует только 
одна ссылка (на поле ОСРА). Аналогично в случае 
присваивания вместо двух ссылок (на поле СРА пере¬ 
менной и на статью для !) компилируется одна (на поле 
1СРА). В практических реализациях программы для 
действий ЗНАЧ и ПРИСВ обычно задаются не в виде 
высокоуровневых определений, а непосредственно в 
машинном коде данной ЭВМ через встроенный ассемб¬ 
лер форт-системы. В этом случае описание переменных 
через слово фИАЫ не только сокращает размер про¬ 
граммы, но и повышает ее быстродействие, поскольку 
отпадает необходимость в исполнении действия ЫЕХТ 
для интерпретации еще одной ссылки. 

По аналогии со словом определим слово 

ѴЕСТ (от ѴЕСТОК — вектор), которое также создает 
словарную статью с векторным полем кода из трех 
элементов: 

: ѴЕСТ ( -:>) 0 С0№Т АЫТ 

І-АТЕ5Т ЫАМЕ> 01ІР @ , ( КОД 2СРА) 

ПРИСВ ОУР @ ( 1СРА) 5ИАР >В00Ѵ 1 С'] АВОКТ , 

□ 0Е5 > ( КОД Д/ІЯ ОСРА) 4 + @ ЕХЕСІЛЕ | 

Код для поля 2СРА указывает на исполняющую часть 
из определяющего слова ССЖ5ТАІМТ , иоле 1СРА такое 
же, как и для слова РУАІ\], оно выполняет при¬ 
сваивание нового значения. Наконец, поле ОСРА, 


4 Зак. № 572 
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которое задается исполняющей частью определения 
ѴЕСТ, исполняет слово, адрес поля кода которого 
является текущим значением поля ОРРА . Для получе¬ 
ния текущего значения и засылки нового по-прежнему 
используются определенные ранее слова АТ и ТО . 
Вот пример на использование этих слов: ѴЕСТ V ' ОЬ'Р 
ТО V . Теперь исполнение слова V равносильно испол¬ 
нению ОЬР. Таким образом, слова, определенные через 
ѴЕСТ , можно рассматривать как переменные, значе¬ 
ниями которых являются другие слова. Для исполнения 
слова — текущего значения такой переменной — доста¬ 
точно указать только имя этой переменной без дополни¬ 
тельных операций @ и ЕХЕСЬТЕ. Текст АТ Ѵ> ХАМЕ 
Ю. распечатывает имя слова — текущего значения V . 
Разумеется, при такой распечатке предполагается, что 
само это слово имеет обычную структуру словарной 
статьи. 


3.5. Выбор по целому 

Выбор по целому — распространенная конструк¬ 
ция в языках программирования. Она является обоб¬ 
щением условного оператора, который осуществляет 
выбор между двумя последовательностями операто¬ 
ров — частью «то» и частью «иначе» — по логическому 
значению (ИСТИНА или ЛОЖЬ) условия. В конструк¬ 
ции выбора по целому в качестве значения условия 
выступает целое число, и выбор осуществляется между 
несколькими альтернативными ветвями, каждая из 
которых соответствует определенному значению усло¬ 
вия или некоторому множеству таких значений. Как 
правило, множества значений условия для разных вет¬ 
вей не должны пересекаться. Обычно эти множества 
задают явным перечислением отдельных значений или 
указанием диапазона для них. Разберем два варианта 
реализации выбора по целому. В первом используется 
переключатель, во втором — вложенные условные опе¬ 
раторы. 

В случае реализации через переключатель каждая 
ветвь должна задаваться отдельным форт-словом. 
Пусть имеется несколько ветвей, каждая из которых 
задается своим порядковым номером. Из адресов ком¬ 
пиляции этих ветвей в соответствии с их порядковыми 
номерами - строится вектор-переключатель, и нужная 
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ветвь выбирается по порядковому номеру. Определя¬ 
ющее слово 5ѴДТСН (переключатель) компилирует 
такой вектор в поле параметров определяемого слова 
и задает выбор альтернативы в исполняющей части: 

: ВИІТСН ( ->) 7ЕХЕС СВЕЙТЕ БРШОбЕ ] 

О О Е 8 > ( I! НОМЕР ВЕТВИ, РРА-М 8ИАР 

1- 2 « + @ ЕХЕСУТЕ \ 

Создающая часть строит новую словарную статью и 
переключает текстовый интерпретатор в состояние ком¬ 
пиляции. Таким образом, следующие слова будут ком¬ 
пилироваться в поле параметров определяемого слова. 
Слово ЗМЬ'ЭОЕ выставляет разряд «Не готов» в байте- 
счетчике поля имени, делая данную статью «невидимой» 
при поиске слов в словаре. Этот разряд будет сброшен 
словом ; (точка с занятой), которое завершает компи¬ 
ляцию такого переключателя. Например: 

І И1 ПОНЕДЕЛЬНИК 1 ' \ і И2 . " ВТОРНИК" » 

і ИЗ ." СРЕДА" I і Ы4 ЧЕТВЕРГ" ) 

! ИЗ ." ПЯТНИЦА" } * Н6 СУББОТА" \ 

і И7 ВОСКРЕСЕНЬЕ" [ 

ВИІТСН ДЕНЬ-НЕДЕЛИ Н1 Н2 ИЗ И4 ИЗ Нб И7 ; 

Порядок использования переключателя ДЕНЬ- 
НЕДЕЛИ иллюстрирует следующий протокол работы: 

> 3 ДЕНЬ-НЕДЕЛИ 
СРЕДА ОК 

> 5 ДЕНЬ-НЕДЕЛИ 
ПЯТНИЦА ОК 

Описанный механизм аналогичен определению вектора, 
рассмотренному в п. 1.10. Его также можно задавать 
по-разному в зависимости от конкретных требований. 
В приведенной реализации неправильное значение вы¬ 
бирающего условия (выходящее за диапазон от 1 до 7) 
приведет к непредсказуемому результату, поскольку 
соответствующий контроль отсутствует. Чтобы ввести 
его в реализацию, нужно каким-то обрашм подсчитать 
число скомпилированных ссылок при завершении ком¬ 
пиляции. Для этого можно применить способ, анало¬ 
гичный компиляции переходов в шитом коде, введя 
вместо точки с запятой специальное слово, отмечаю¬ 
щее конец переключателя. 
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Для реализации конструкции выбора через вложен¬ 
ные условные операторы создаются специальные слова, 
которые обрамляют всю конструкцию и каждую ее 
ветвь. В этом случае ветвь является обычной последо¬ 
вательностью форт-слов, аналогичной части «то» или 
части «иначе» условного оператора. Как и в случае 
условного оператора, конструкцию выбора можно ис¬ 
пользовать только внутри определений через двоеточие, 
т. е. в состоянии компиляции текстового интерпрета¬ 
тора. При этом все ее специальные слова имеют признак 
немедленного исполнения и компилируют необходимые 
проверки и переходы. 

1 САБЕ ( ->А0іСБР,4) 7С0МР СВР 6 !СБР 4 ; 

ІММЕОІАТЕ 

I ОР ( 4 — >АI >МАПК, 1,5) 4 7РА1ЙБ СОМРИЕ ОѴЕР 
СОМРИЕ ■ [СОМРИЕЗ ІР СОМРИЕ СКОР 5 * 

ІММЕОІАТЕ 

і ЕЫООР ( А1:>МАРК,1, 5->А2і >МАКК,I,4) 5 7РАІР6 

[СОМРИЕ] ЕІ.5Е 4 » ІММЕОІАТЕ 

I ЕЫ0СА5Е ( АО,А1,1,...,АЫ,14->) 

4 7РАІР6 СОМРИЕ ОПОР 

ВЕ61N ВР6 СВР в * 0« ИННЕ [СОМРИЕ] ТНЕЫ 
РЕРЕАТ ( АО) СВР ! } ІММЕОІАТЕ 

і ДЕНЬ-НЕДЕЛИ ( N->1 САВЕ 

I ОР ПОНЕДЕЛЬНИК 1 ' ЕЫООР 2 ОР . ” ВТОРНИК 1 ' ЕЫООР 
3 ОР СРЕДА 1 ' ЕЫООР 4 ОР ЧЕТВЕРГ" ЕЫООР 
5 ОР ПЯТНИЦА" ЕЫООР 6 ОР ." СУББОТА" ЕЫООР 
7 ОР ВОСКРЕСЕНЬЕ" ЕЫООР 
СК . - ДЕНЬ НЕДЕЛИ?" АВОВТ ЕЫОСАВЕ » 

Слова САЗЕ (выбор) и ЕЫОСАЗЕ (конец выбора) 
ограничивают конструкцию и обеспечивают правиль¬ 
ную компиляцию вложенных операторов. Слово САЗЕ , 
проверив, что текстовый интерпретатор находится в со¬ 
стоянии компиляции, сменяет глобальную переменную 
С8Р (сокращение от СиККЕЫТ 5ТАСК РОШТЕК — 
текущий указатель стека), сохраняя на стеке ее преж¬ 
нее значение (слово !С5Р засылает в переменную С5Р 
адрес текущей вершины стекау. Слова ОР (из) и ЕЫО¬ 
ОР (конец из) ограничивают отдельную ветвь. Во вре¬ 
мя работы скомпилированного определения перед на¬ 
чалом исполнения каждой ветви на стеке лежат два 
значения: число, представляющее условие выбора, и но¬ 
мер данной ветви. Слово ОР компилирует текст ОѴЕК = 
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= ІР ОКОР , который обеспечивает передачу управ¬ 
ления на данную ветвь, если эти два значения совпали, 
причем в этом случае они оба снимаются со стека. Если 
же значения оказались разными, то управление пере¬ 
дается на текст, следующий за словом ЕНООР для 
данной ветви, которое эквивалентно слову ЕЬ5Е. На¬ 
конец, слово ЕМОСА5Р компилирует операцию ЭКОР , 
чтобы снять со стека оставшееся там значение условия, 
и разрешает все накопившиеся на стеке выходы из вет¬ 
вей на текущую точку, исполняя для этих ветвей слово 
ТНЕЫ . Его последним действием является восстано¬ 
вление прежнего значения переменной С5Р , которое 
к этому моменту оказывается на вершине стека. 

В приведенных определениях можно несколько 
уменьшить объем кода, компилируемого для входа 
в каждую ветвь, если ввести для этого специальное 
слово, вслед за которым в шитый код компилируется 
адрес перехода на следующую ветвь: 

I (ОР) ( N і УСЛОВИЕ,I і НОМЕР ВЕТВИ-)) 

ОѴЕВ => ІР ОВОР К) 2+ Е1.3Е Я) • ТНЕЫ >й ) 

ОР < 4 — > Аі >МАРК 1 2,5) 4 7РАІЯ5 

СОМРИЕ (ОР) >МАКК 2 Ъ \ ІММЕОІАТЕ 

Исполнение слова (ОР) аналогично ?ВКАГ\ІСН , в за¬ 
висимости от условия оно переустанавливает указатель 
интерпретации, либо обходя скомпилированную за ним 
ссылку, либо устанавливая указатель по значению этой 
ссылки. Аналогичным образом наряду со словами (ОР) 
и ОФ можно определить пары (<ОР) и <ОР, (> ОР) 
и > ОР , (<ОР<) и <ОР< , выполняющие срав¬ 
нение значения условия с заданным значением, выби¬ 
рающим данную ветвь, не на равенство, а на неравен¬ 
ство указанного вида. При этом слово (<ОР<;) 
сравнивает значение условия с двумя значениями, 
определяющими интервал. Например: 

I ПРИЕМ ( N1 НОМЕР ДНЯ->) САБЕ 
3 ОР НЕПРИЕМНЫЙ" ЕЫООР 
\ 5 <0Р< ." ПРИЕМНЫЙ" ЕЫООР 
& 7 <0Р< ВЫХОДНОЙ" ЕЫООР 
СН . ." - НОМЕР ДНЯ?" АВОВТ ЕЫ0СА5Е .ДЕНЬ" * 

В данном примере множества выбирающих значений 
пересекаются, и выбор ветви определяется для этого 
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случая порядком расположения ветвей в конструкции 
выбора. 

3.6. Динамическая идентификация 

Внутренним представлением форт-слова явля¬ 
ется словарная статья, которая размещается в словаре. 
Через поля связи словарные статьи объединяются в цеп¬ 
ные списки, каждый из которых также представлен 
как отдельный объект словарной статьей, создаваемой 
по слову ѴОСАВІЛ.АКУ . Исполнение слова, обозна¬ 
чающего такой список, делает его текущим значением 
переменной СОМТЕХТ , определяющей список, в ко¬ 
тором начинается поиск каждого вводимого форт- 
слова. Если слово отсутствует в этом списке, то следу¬ 
ющим просматривается список, в который добавляются 
создаваемые новые статьи, текущее значение перемен¬ 
ной СЕІККЕМТ. Последним просматривается стан¬ 
дартный список РОКТН . Если текстовый интерпрета¬ 
тор находится в состоянии исполнения, то найденный 
код исполняется, в состоянии компиляции он компи¬ 
лируется в виде ссылки на данную словарную статью 
для последующего исполнения в составе скомпилиро¬ 
ванного определения. 

Таким образом, в процессе создания нового опре¬ 
деления мы индентифицируем составляющие его слова 
статически , т. е. по текущему контексту (значениям 
переменных СОЫТЕХТ и СЁІККЕЫТ ) во время компи¬ 
ляции. Во время исполнения этого определения будут 
исполняться именно эти, найденные во время компи¬ 
ляции составляющие слова. Вместе с тем в практике 
программирования уже давно применяется прием, из¬ 
вестный как динамическая идентификация. В приме¬ 
нении к языку Форт он состоит в том, что вместо ком¬ 
пиляции ссылки на статью слова по результату ста¬ 
тической индентификации в компилируемой статье 
запоминается имя слова, и его поиск ведется в момент 
фактического исполнения. Главная особенность состоит 
в том, что контекст для поиска также устанавливается 
динамически в результате предшествующих вычи¬ 
слений. 

Описанный подход позволяет в ряде случаев суще¬ 
ственно упростить программирование слов, исполнение 
которых зависит от контекста их вызова. Вместо того, 
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чтобы внутри такого слова анализировать контекст 


и в зависимости от него выполнять те или иные действия, 
можно создать ряд слов с одним и тем же именем, но 
в разных контекстах. Каждое такое слово выполняет 


о 


только свое действие, а вместо анализа контекста в ме¬ 
сте вызова такого слова программируются установка 
нужного контекста и поиск слова по заданному имени 
с последующим исполнением кода. 

В качестве примера рассмотрим простой язык, ана¬ 


логичный рассмотренному в п. 3.2, и содержащий опи¬ 
сания констант, переменных и оператор присваивания 
с инфиксной формой записи для выражений. Пусть 
описания констант выглядят, например, так: КОНСТ 
А — 2. Чтобы не перегружать наш пример лишними 
деталями, не будем учитывать возможность компиля¬ 
ции описаний и операторов этого языка. Пусть они 
сразу же исполняются по мере поступления. Собственно 
задача состоит в том, что при обработке левой части 
оператора присваивания можно было различать пере¬ 
менные и константы. В первом случае результатом 


исполнения должен быть адрес соответствующей ячейки 
памяти, а во втором — сообщение об ошибке — недо¬ 
пустимом использовании константы в качестве полу¬ 
чателя присваивания. Если же имя переменной или 
константы использовано в правой части присваивания, 
то в обоих случаях нужно получить соответствующее 
значение. Разумеется, соответствующие операции про¬ 
верки можно включить в программу для переменной 
и константы, анализируя глобальную переменную 
?ЗНАЧ , как это сделано в рассмотренном выше при¬ 
мере. Покажем, как эту же задачу можно решить через 
динамическую идентификацию. 

Определим два контекста (списка слов) П и К, со¬ 
держащих операции над переменными и константами. 
Таких операций две: ЗНАЧ для получения значения 
и АДР для получения адреса. Операция ЗНАЧ рабо¬ 
тает в обоих случаях одинаково, а операция АДР до¬ 
пустима только для переменной; будучи примененной 
к константе, она должна выдать сообщение об ошибке. 
В список ВОКТН также включим слово ЗНАЧ , которое 
в этом контексте выполняет пустую операцию, и слово 
АДР, выдающее сообщение об ошибке (их назначение 
станет ясным чуть позже). Для определения всех этих 
слов примем, что значение переменной или константы 
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размещается в поле параметров созданной для нее 
словарной статьи. 

РОВТН ВЕРШТІОИВ 
ѴОСАВШ.АНѴ П ѴОСАВІЛ.АВѴ К 
п ОЕРШТШВ ( ДЕЙСТВИЯ С ПЕРЕМЕННЫМИ) 

* ЗНАЧ ( РРА->Ю ЗНАЧ) й РОВТН | 
і АДР I РРА->А:АДР) РОВТН | 

К ВЕРШТІОИВ < ДЕЙСТВИЯ С КОНСТАНТАМИ) 

* ЗНАЧ ( РРА— >ЫIЗНАЧ) й РОВТН ( 
і АДР < РРА->) СВ 

. 11 НЕДОПУСТИМОЕ ИСПОЛЬЗОВАНИЕ КОНСТАНТЫ " 

В00Ѵ> >НАМЕ 10. АБОРТ \ 

РОВТН ОЕРІМІТІОЫВ 
і ЗНАЧ ( ->) ) 

I АДР ( ->) -1 АВОВТ" НЕДОПУСТИМЫЙ АДРЕС" » 

Заметим, что при исполнении слов ЗНАЧ и АДР в кон¬ 
текстах П и К помимо вычисления соответствующего 
значения текущий контекст переключается на РОРТН . 
Исполняющая часть определяющих слов ПЕРЕМ 
и КОНСТ теперь состоит в установке соответствующего 
контекста, при этом на стек кладется адрес поля пара¬ 
метров данной статьи: 

I ПЕРЕМ ( ->) СПЕЙТЕ 0 , 00ЕВ> ( РРА->РРА) П \ 
і КОНСТ < ->) СВЕАТЕ ВІ. М0В0 ОПОР 
< ВЫБРАТЬ ЗНАК ”) 

ВІ МОНО ЖЖВЕВ ОПОР < N1 ЗНАЧ) , 

00ЕВ> < РРА->РРА) К ( 

Чтобы теперь при обработке выражения в левой части 
присваивания получать значение переменной или кон¬ 
станты, надо слегка изменить определение слова )ОПРЦ> 
(см. п. 3.2) — включить в него исполнение операции 
ЗНАЧ , которая идентифицируется динамически по 
текущему контексту. 

і >0ПРЦ> ( N1 ПРИОРИТЕТ->> 

>В " ЗНАЧ" РІ N0 ОПОР ЕХЕСІІТЕ 
ВЕВIN ОПРЦЙ Вй < ЫОТ ИННЕ ОПРЦ> ОПОР 
0ПРЦ> < СРА) ЕХЕСІІТЕ ВЕРЕАТ Н> ОПОР ; 

Если это определение исполняется сразу после пере¬ 
менной или константы (в контексте П или К), то оно 
преобразует адрес поля параметров соответствующей 
статьи, который находится в этот момент на вершине 
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стека, в значение данной переменной или константы. 
Для всех других случаев (контекст РОКТН ) преоб¬ 
разования стека не происходит. Именно по этой при¬ 
чине определения ЗНАЧ в списках П и К по завершении 
их исполнения переключают текущий контекст на 
РОКТН , а в списке РОКТН присутствует определение 
ЗНАЧ с пустым действием. Последнее обстоятельство 
гарантирует успешный поиск слова ЗНАЧ в любом кон¬ 
тексте, поэтому в приведенном определении проверка 
того, что поиск закончился успешно, опущена (із ОКОР- 
реб). В заключение осталось только аналогичным об¬ 
разом переопределить слово: = (см. п. 3.2): 

1 1* н АДР" РI N 0 СВОР ЕХЕСиТЕ ССОМРИЕЗ < ( 

Сравнивая получившиеся определения, мы видим, что 
они существенно сократились в объеме: из них исчезли 
анализ текущего контекста и (соответственно) 'услов¬ 
ные операторы, предписывающие выполнение разных 
действий в зависимости от результата анализа. Опи¬ 
санный подход особенно перспективен, когда требуется 
выполнить много разных операций над объектами, каж¬ 
дая из которых выполняется по-разному в зависимости 
от текущего контекста. Разбиение большой операции 
с множеством проверок и разветвлений на ряд мелких, 
каждая из которых выполняется в своем контексте, 
не только упрощает программирование и отладку, но 
и сокращает объем программы, так как эти мелкие спе¬ 
циализированные операции для разных объектов часто 
можно совмещать: 

К СЕР INIТIОЫБ 

I ЗНАЧ ( РРА->1>(1 ЗНАЧ) [ П 3 ЗНАЧ ( 

В приведенном определении слово ЗНАЧ для списка 
К не программируется вновь, а определяется через 
такое же слово из контекста П , тем самым сокращается 
общий объем отладки. Следуя по этому пути, можно 
вообще исключить слово АДР из списка К, поскольку 
в этом случае сообщение об ошибке выдаст слово АДР 
из списка РОКТН , правда, с меньшей информацией — 
не будет напечатано имя константы. 

Если механизм динамической идентификации при¬ 
меняется для ряда не связанных между собой целей, 
то может оказаться неудобным выполнять переклю¬ 
чение контекстов через одну и ту же глобальную пере- 


105 



менную ССЖТЕХТ и выполнять поиск слова в текущем 
контексте словом РІЫО. Как правило, все форт-системы 
имеют более элементарное слово (РІ\ 7 0), которое 
получает в качестве параметра текстовую строку с 
именем слова и вход в список статей, в котором нужно 
выполнять поиск. Используя это слово, можно органи¬ 
зовать поиск слова в любом списке или группе списков, 
уже не связывая его с текущим порядком поиска, 
принятым для слова РІЫО. 

Например, именно таким образом нетрудно ввести 
в язык обработку исключительных ситуаций. Для этого 
нужно завести стек, элементами которого являются 
списки слов для обработки ситуаций. При установке 
перехвата ситуаций на вершину этого стека добавля¬ 
ется новый элемент — список слов-обработчиков. При 
снятии перехвата верхний элемент снимается со стека, 
делая доступными другие слова-обработчики с теми 
же именами. Слово, возбуждающее исключительную 
ситуацию, обращается к (РШІ)) для просмотра всех 
списков в этом стеке от верхнего элемента к самому 
нижнему, сообщая ему имя слова, обозначающего си¬ 
туацию. Первое найденное при таком поиске слово 
и будет использовано как обработчик ситуации. Если 
слово отсутствует во всех списках, то это ошибка — 
непредусмотренная ситуация. 

3.7. Многозадачный режим 

Запуская на исполнение какое-либо форт-слово, 
программист имеет возможность исполнить следующее 
только по завершении исполнения предыдущего. Если 
исполнение данного слова требует значительного вре¬ 
мени счета, то длительные перерывы в диалоге создают 
определенное неудобство. Ввиду этого представляется 
весьма привлекательной идея многозадачной форт- 
системы, в которой программист может создавать фо¬ 
новые задачи и запускать их на исполнение, не пре¬ 
рывая диалога. Текстовый интерпретатор такой си¬ 
стемы, обеспечивающий диалог, является одной из 
задач и разделяет центральный процессор наряду с дру¬ 
гими задачами. Идея многозадачного режима привле¬ 
кательна еще и тем, что разные задачи могут разделять 
значительную часть кода — практически все ядро форт- 
системы. Из стандартных слов только системные пере- 
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менные ( 5ТАТЕ , ВА5Е и другие) и списки слов 
( РОКТН , А55ЕМВЬЕК ) ие могут одновременно уча¬ 
ствовать в нескольких вычислительных процессах (за¬ 
дачах), поскольку их код (значение поля параметров) 
в процессе работы может изменяться. В то же время 
вся остальная часть кода форт-системы, включая все 
слова, определенные через двоеточие и СО\ ; $ТАІ\ІТ , 
в процессе работы не меняется и может даже разме¬ 
щаться в постоянной оперативной памяти (ПЗУ). Что¬ 
бы снять это ограничение, во многих реализациях выде¬ 
лены особая область для размещения значений, кото¬ 
рые могут изменяться во время счета. Эта область на¬ 
зывается пользовательской и обычно располагается 
в конце адресного форт-пространства рядом со стеками 
и буферным пулом. Распределение памяти внутри поль¬ 
зовательской области выполняет сам программист че¬ 
рез определяющее слово Е5ЕК (пользовательский): 

і ЦВЕК ( N с СМЕЩЕНИЕ-> ) СВЕАТЕ , 

ПОЕВ) ( РРА->Аі АДРЕС) I иО і | 

По характеру использования это слово аналогично 
С0Ы5ТАІ\ІТ ; значение, которое оно снимает со стека 
и компилирует в поле параметров определяемого слова, 
представляет собой смещение от начала пользователь¬ 
ской области. При исполнении такого слова на стеке 
будет оставлен соответствующий адрес (слово ЕЮ, 
использованное в определении слова ЕІ5ЕК, дает адрес 
начала пользовательской области). При наличии поль¬ 
зовательской области все системные переменные раз¬ 
мещаются в ней, занимая какую-то ее начальную часть. 
Их словарные статьи определяются через слово ЕІ5ЕК, 
тем самым обеспечивается их неизменяемость в про¬ 
цессе работы. 

Во всех реализациях многозадачного режима с раз¬ 
деляемым общим ядром форт-системы каждая задача 
имеет собственные пользовательскую область, стек 
данных и стек возвратов. Текущее состояние задачи 
определяется значением указателя интерпретации и ад¬ 
ресами вершин этих стеков. Представлением самой 
задачи обычно служит адрес начала ее пользователь¬ 
ской области, в которой предусматривается память 
для сохранения текущего состояния на то время, пока 
задача неактивна. Для возобновления исполнения за- 
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дачи требуется восстановить ее текущее состояние из 
области сохранения и передать управление на точку 
ЫЕХТ адресного интерпретатора. 

Дальнейшие уточнения конкретного варианта мно¬ 
гозадачного режима зависят от многих частных причин. 
Для примера рассмотрим реализацию системы ПОЛИ¬ 
ФОРТ фирмы «Форт» [31]. Эта система реализована 
для целого ряда ЭВМ, включая персональный компью¬ 
тер ИБМ. Использованный в ней механизм переклю¬ 
чения задач основан на кольцевом принципе; все задачи 
связаны в кольцо через начальную часть своей пользо¬ 
вательской области (рис. 3.2). Задачи, составляющие 
кольцо, по очереди получают центральный процессор 
и удерживают его до тех пор, пока не исполнят слово 
РАИЗЕ (пауза) или 5ТОР (стоп). Для определений 
в машинном коде предусмотрен аналогичный код \ѴАІТ 
(ждать). Многие слова, которые выполняют асинхрон¬ 
ные операции обмена ( ТУРЕ , ЕХРЕСТ , ВЬОСК , 
ВУРРЕК ), содержат код ДѴАІТ или переход на 5ТОР , 
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чтобы в то время, когда они ждут завершения обмена, 
другие задачи могли использовать центральный про¬ 
цессор. Задачи, в которых для выполнения длительных 
вычислений нет необходимости обращаться к опе¬ 
рациям обмена, должны сами периодически пре¬ 
доставлять процессор другим задачам, выполняя 
слово РАЕІ5Е. 

Все задачи, существующие в системе, связываются 
в кольцо через команду безусловного перехода (ЛМР), 
которая располагается в начале их пользовательских 
областей. В качестве звена связи используется адресная 
часть команды перехода, указывающая на такую же 
команду следующей задачи в кольце. Если передать 
управление на одну из таких команд, то будет испол¬ 
няться бесконечный цикл из переходов по кольцу задач 
до тех пор, пока какая-нибудь задача не будет раз¬ 
бужена. 

Для пробуждения задач часто используются асин¬ 
хронные подпрограммы обработки прерываний. Напри¬ 
мер, если выход по прерыванию, установленный в слове 
ЕХРЕСТ , распознает код возврата каретки, которым 
заканчивается вводимая строка, то он будит задачу, 
запросившую данный ввод с терминала, засылая ко¬ 
манду ШАКЕ (разбудить) на место ее команды . 
Для этого часто используется какая-нибудь команда 
перехвата (например, для ЭВМ СМ-4 это команды 
ТКАРиЕМТ). Когда цикл передач управления по 
кольцу задач дойдет до этой команды, она передаст 
управление специальной подпрограмме-побудчику, ко¬ 
торая и возобновит исполнение данной задачи от точки 
последнего остановка. При этом на место команды 
\ѴАКЕ будет вновь заслана команда ^МР, и исполнение 
данной задачи будет продолжаться до следующей опе¬ 
рации РАЕІ5Е , 5ТОР или \ѴАІТ . Пример цикла ввода 
и обработки данных с возобновлением по прерыванию 
дает следующее определение: 

1 СБОР ( -> ) ВЕѲІЫ ВВОД БТОР ОБРАБОТКА АВА IN і 

Пробуждение задачи от точки 5ТОР на каждом повто¬ 
рении цикла выполняет подпрограмма обработки пре¬ 
рывания, связанная с вводом данных, когда данные, 
получаемые при исполнении слова ВВОД , готовы для 
обработки. Пример задания регулярных остановов в за- 
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даче, требующей длительного счета, дает такое опре¬ 
деление: 


: СЧЕТ < ->) 30000 0 00 ШАГ РАУЗЕ ЮОР { 

При каждом повторении цикла после исполнения слова 
ШАГ происходит передача управления в кольцо задач 
с тем, чтобы дать поработать другим задачам, ожида¬ 
ющим центральный процессор. 

Действие 5ТОР (для определений, заданных в ма¬ 
шинном коде, аналогичное ему действие \ѴАІТ ) состо¬ 
ит в сохранении текущего состояния задачи (указателя 
интерпретации, указателя вершины стека данных и ука¬ 
зателя вершины стека возвратов) в ее пользователь¬ 
ской области и передаче управления по адресу из ее 
звена связи в кольце задач. В результате центральный 
процессор будет исполнять цикл из передач управления 
по кольцу задач, пока не встретит команду \ѴАКЕ . 
Действие РАІІ5Е отличается от описанного действия 
5ТОР только тем, что предварительно засылает коман¬ 
ду \ѴАКЕ в начало области данной задачи, обеспечивая 
тем самым пробуждение данной задачи после полного 
круга передач управления. Действие \ѴАКЕ заключа¬ 
ется в том, что команда ЛМР засылается на отведенное 
ей место в начало пользовательской области, восста¬ 
навливается текущее состояние данной задачи из ее 
области сохранения, управление передается на точку 
ЫЕХТ адресного интерпретатора. В результате испол¬ 
нение задачи возобновляется от точки останова. 

Для определения фоновой задачи используется 
определяющее слово ВАСКОКОІЖО (фон), которое 
снимает со стека три числа: размер пользовательской 
области, размер стека данных и размер стека возвратов. 
Это слово резервирует в словаре память указанного 
объема и указатели на эти области компилирует в поле 
параметров создаваемой статьи, например, 40 60 50 
ВАСКОКОІЖО Т . При исполнении слова Т на стеке 
оставляется адрес его поля параметров, через который 
можно добраться до пользовательской области и сте¬ 
ков задачи Т . Данное описание только подготавливает 
задачу, но не включает ее в кольцо задач и не запуска¬ 
ет на исполнение. 

При запуске форт-системы в кольце задач присут¬ 
ствует только одна задача — ОРЕКАТОК (оператор), 
звено связи которой указывает на нее же. Для встраи- 
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вания в кольцо новых задач используется слово ВІЛЬО 
(построить), например Т ВІЛЬО . Это слово, используя 
адрес поля параметров статьи для задачи, инициали¬ 
зирует ее пользовательскую область и включает ее 
в кольцо задач после задачи ОРЕКАТОК . При этом 
в начало области вписывается команда ^МР , предо¬ 
храняющая данную задачу от преждевременного испол¬ 
нения. Заметим, что форт-слова, составляющие прог¬ 
рамму данной задачи, могут быть определены значи¬ 
тельно позже. Обратное действие — исключение задачи 
из кольца задач — выполняет аналогичное по употре¬ 
блению слово КІЛЫ (разрушить). 

Для запуска задачи используется слово АСТІѴАТЕ 
(запустить), которое снимает со стека адрес поля пара¬ 
метров статьи для задачи. Оно очищает стек данных 
и стек возвратов задачи, сбрасывая на начало указа¬ 
тели их вершин в области сохранения, а в качестве 
точки возобновления засылает свой адрес возврата, 
указывающий на следующее за ним слово. Поскольку 
адрес снимается со стека возвратов, то слово АСТІѴАТЕ 
аналогично слову ЕХІТ возвращает управление на 
точку вызова определения, его вызвавшего. Последним 
действием слова АСТІѴАТЕ является подготовка за¬ 
дачи к пробуждению путем засылки команды ШАКЕ 
в начало ее пользовательской области. Приведем при¬ 
мер использования слова АСТІѴАТЕ и запуска задачи 
на исполнение: 

і СЧЕТ ( РРА->) АСТІѴАТЕ ВЕ61N НАГ РАІІ5Е ЮОР ( 

Т СЧЕТ 

Задача Т будет выполнять бесконечный цикл, разделяя 
центральный процессор с текстовым интерпретатором 
форт-системы — задачей ОРЕКАТОК . Исполнение 
задачи можно оставить с помощью слова НАЬТ 
(останов): 

і НА1.Т < РР А-> ) АСТІѴАТЕ 6Т0Р | 

если в рамках задачи ОРЕКАТОК исполнить текст Т 
НАЕТ . После такого останова данную задачу можно 
запустить на счет с какой-нибудь другой форт-про¬ 
граммой. 

При работе в многозадачном режиме возникает 
проблема синхронизации задач , разделяющих общие 
ресурсы, которые требуют монопольного использования. 
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Примерами таких ресурсов являются внешние устрой¬ 
ства, общие области оперативной памяти, куда осущест¬ 
вляется запись данных, общие подпрограммы, не 
допускающие параллельного использования. Опишем 
простой механизм семафоров , позволяющий управлять 
использованием таких ресурсов в многозадачном режиме. 

С каждым ресурсом свяжем переменную — его сема¬ 
фор, которая должна размещаться в общей области 
форт-системы, доступной для всех задач. Когда ресурс 
не занят, эта переменная содержит нуль. Когда ресурс 
занят какой-нибудь задачей, эта переменная содержит 
адрес пользовательской области данной задачи. 

Определим слова ОЕТ (получить) и КЕЬЕАЗЕ (ос¬ 
вободить), аналогичные семафорным операциям Дейк- 
стры [8]. В определениях этих слов используется вспо¬ 
могательное слово РКЕЕ (свободен), проверяющее, 
свободен ли ресурс. Заметим, что ресурс свободен 
с точки зрения данной задачи, если он не занят или 
занят этой же задачей. 

і РКЕЕ < Аі СЕМА90Р- >А,Рі ПРИЗНАК СВОБОДНОСТИ ) 

в оир о* виар ио ■ ов * 

і ѲЕТ < Аі СЕМАФОР-> ) 

ВЕВІИ РАІІВЕ РЙЕЕ ІЖШ ІЛ) ВМАР ! ; 

I РЕ1.ЕАЗЕ ( А9 СЕМАФОР->) 

РРЕЕ ІР О ВМАР ! ЕІ-ВЕ ОПОР ТНЕЫ ) 

В приведенных определениях слово ІЮ возвращает 
адрес начала пользовательской области текущей задачи. 
Слово ОЕТ проверяет, свободен ли ресурс в каждом 
цикле передач управления по кольцу задач, и занимает 
его, как только обнаружит, что ресурс свободен. Слово 
КЕЬЕАЗЕ освобождает ресурс, если он был занят дан¬ 
ной задачей. 

Разумеется, эти слова не обеспечивают защиты от 
взаимных блокировок задач, каждая из которых ожида¬ 
ет ресурса, который занят другой задачей: 

ШІАВІ.Е ДИСК ѴАЙІАВІЕ ЛЕНТА 
I ШАГ 1 ДИСК ѲЕТ ЛЕНТА ѲЕТ ... \ 
і ШАГ2 ЛЕНТА ВЕТ ДИСК ѲЕТ ... I 

Если слова ШАГ1 и ШАГ2 исполняются в разных за¬ 
дачах, то это может привести к их взаимной блокировке. 
Наилучший способ избежать такой ситуации — не 
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запрашивать более одного ресурса единовременно. На¬ 
пример, в случае работы с диском и лентой, задача 
может запросить ресурс ДИСК, выполнить слово 
ВБОСК, для получения данных, затем переслать эти 
данные в свою локальную область и, освободив ДИСК > 
запросить ресурс ЛЕНТА. 

3.8. Сопрограммы 

Представление задачи в виде взаимодействую¬ 
щих сопрограмм (процессов) в теории программиро¬ 
вания стало уже традиционным [15,16]. Но на практике 
этот метод используется редко, так как большинство 
распространенных языков высокого уровня не имеют 
необходимых конструкций. В стандарт языка Форт 
также не включены средства для сопрограммной ра¬ 
боты. Вызвано это в основном тем, что такие средства 
обычно зависят от конкретного приложения и могут 
варьироваться очень сильно. Тем не менее, используя 
только стандартные для большинства систем слова, 
можно реализовать необходимые конструкции. 

Рассмотрим достаточно простую и экономную реали¬ 
зацию сопрограмм. Направления, в которых можно 
ее усовершенствовать, рассмотрены ниже. 

Сопрограмма состоит из двух частей — собственной 
области памяти и программы, работающей с этой об¬ 
ластью памяти. Для языка Форт программа — это не¬ 
которое форт-слово, а область памяти должна со¬ 
держать место для указателей стеков, для самих стеков 
и для служебной информации. 

Будем считать, что адрес области памяти текущей 
сопрограммы находится в переменной Т-С . Используя 
ее, введем слова для доступа к полям этой области. 
Для простоты в данной реализации отводится участок 
памяти размером 128 байт. В его начале находятся: 
Т-ПРОГ — указатель начала шитого кода, соответ¬ 
ствующего исполняемой программе, Т-СТЕК — указа¬ 
тель вершины стека данных на момент последней при¬ 
остановки данной сопрограммы (указатель вершины 
стека возвратов сохраняется на стеке данных) и Т- 
ВЫЗВ — адрес аналогичной области для сопрограммы, 
вызвавшей данную. В остальной памяти участка раз¬ 
мещаются стек данных и стек возвратов по 60 байт 
каждый. 
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Внешняя программа, в рамках которой действует 
описываемый механизм сопрограмм, представлена 6- 
байтной областью ВНЕШ , в которой размещаются 
перечисленные выше значения. В качестве своих стеков 
эта сопрограмма использует исходные стеки форт- 
системы. 

Перед началом работы все сопрограммы должны 
быть проинициализированы словом 5ТАКТ (старт), 
завершение работы сопрограммного механизма вы¬ 
зывает слово 5ТОР (стоп). 

Сопрограмма определяется через слово СОПРО¬ 
ГРАММА , которое по своему употреблению аналогично 
двоеточию. Вслед за ним идет имя сопрограммы и форт- 
текст, задающий требуемую программу. Обычно она 
состоит из цикла, внутри которого используется слово 
КЕЗСІМЕ (возобновить) для приостановки данной со¬ 
программы и возобновления сопрограммы, ее вызвав¬ 
шей. Выход по ЕХІТ или ; приводит к завершению ра¬ 
боты всего сопрограммного механизма и возобновлению 
текстовой интерпретации. 

ЕИІАЫ Т-С ( ААРЕС ОБЛАСТИ ТЕКУЩЕЙ СОПРОГРАММЫ) 

I Т-ПРОГ < ->А * АДРЕС НАЧАЛА ПРОГРАММЫ) Т-С | 

1 Т-СТЕК < -)А:АДРЕС УКАЗАТЕЛЯ СТЕКА ) Т-С 2* ( 
і Т-ВЫЗВ ( ->Аі АДРЕС ВЫЗВАВШЕЙ СОПРОГРАММЫ)Т-С 4 4 , 

СЯЕАТЕ ВНЕ» 6 АЫ.0Т ( ОБЛАСТЬ ДЛЯ ВНЕШНЕЙ ПРОГРАММЫ) 

1 РЕ8УМЕ ( -> ОСТАНОВИТЬ ТЕКУЩ.И В030БН.ВЫЗВАВШУЮ) 

ЯР* ВР« Т-СТЕК ! ( СОХРАНИТЬ СОСТОЯНИЕ ТЕКУЩЕЙ) 

Т-ВЫЗВ в ТО Т-С < ПЕРЕКЛЮЧИТЬСЯ НА ВЫЗВАВШУЮ ДАННУЮ) 

Т-СТЕК в 8Р! ЯР! і < ВОЗОБНОВИТЬ ПРИОСТАНОВЛЕННУЮ) 
і ВТОР < -> ЗАВЕРШЕНИЕ ВСЕХ СОПРОГРАММ) СШІТ | 

: (ВТАНТ) ( Аі АДРЕС ОБЛАСТИ СОПРОГРАММЫ-) ИНИЦИАЛИЗ) 

ОЦР ТО Т-С Т-ПРОГ в ОѴЕй 126 4 ! ш 126 + 

ОѴЕЙ 66 + ! 66 + Т-СТЕК ! ВНЕШ ТО Т-С \ 

і СОПРОГРАММА ( -> ОПРЕДЕЛЕНИЕ СОПРОГРАММЫ) СЯЕАТЕ НЕЯЕ 

ОУР 132 4 , 126 АЫ.0Т НЕЯЕ 2+ , С'] 8Т0Р , (8ТАЯТ) 3 
00Е6> ( РРАі ОБЛАСТЬ СОПРОГРАММЫ-)) ЯР» 8ЫАР >Я 

ВРв Т-СТЕК ! Т-С Я) ТО Т-С Т-ВЫЗВ ! 

Т-СТЕК в ВР! ЯР! | 

і ВТАЙТ ( -) ИНИЦИАЛИЗИРОВАТЬ СОПРОГРАММУ) 

' )В00У [СОМРИЕЗ ІЛТЕЙАІ 8ТАТЕ в 
ІР С0МРК.Е (ВТАЙТ) ЕІ.ЗЕ (6ТАЯТ) ТНЕН * ІММЕОІАТЕ 

В качестве примера рассмотрим часто встречаю¬ 
щуюся задачу: прочитать некоторый файл с одной 
длиной записи, обработать его и записать в другой 
файл, причем файлы имеют разную длину записи. Если 
решать эту задачу без сопрограмм, то надо либо вводить 
переменные — флажки, сигнализирующие о состоянии 
буферов, либо найти общее кратное длин входной 
и выходной записи и, отведя буфера такого размера,- 
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сначала в цикле заполнять входной буфер, а потом его 
обрабатывать и выводить. В любом случае логически 
ясные действия по чтению, обработке и записи будут 
собраны в одну программу, которая в силу этого будет 
сложна для понимания, отладки и модификации. 

Применяя описанный механизм, определим две со¬ 
программы ВВОД и ВЫВОД , которые обменивают¬ 
ся между собой через однобайтный буфер ТЕК-СИМ, 
и слово ЗАДАЧА, которое выполняет требуемую 
перепись данных: 


СШАЫ ТЕК-СИМ < ОЧЕРЕДНОЙ ОБМЕНИВАЕМЫЙ СИМВОЛ) 

СКЕАТЕ ВХОД-БУФ 60 АЫ.0Т < БУФЕР ВВОДА) 

СРЕАТЕ ВЫХ-БУФ 64 АИОТ ( БУФЕР ВЫВОДА) 

СОПРОГРАММА ВВОД 

ОТКРЫТЬ-ВВОД ВЕ61N ВХОД-БУФ ЧИТАТЬ ИННЕ 

ВХОД-БУФ 60 * ВХОД-БУФ 00 I С6 ТО ТЕК-СИМ 

ВЕЗШІЕ ЮОР 

РЕРЕАТ ЗАКРЫТЬ-ВВОД ЗАКРЫТЬ-ВЫВОД } 

СОПРОГРАММА ВЫВОД 

ОТКРЫТЬ-ВЫВОД ВЕ6ІЫ ВЫХ-БУФ 64 + ВЫХ-БУФ 00 
ТЕК-СИМ I С! РЕ5ЦІМЕ ЮОР 

ВЫХ-БУФ ПИСАТЬ АѲ АIN ; 

: ЗАДАЧА 

8ТАРТ ВВОД 8ТАРТ ВЫВОД 

ВЕ61N ВВОД ВЫВОД АВАІЫ | 

Два ряда слов ОТКРЫТЬ-ВВОД, ЧИТАТЬ, ЗА- 
КРЫТЬ-ВВОД и ОТКРЫТЬ-ВЫВОД, ПИСАТЬ, ЗА¬ 
КРЫТЬ-ВЫВОД обеспечивают взаимодействие с вход¬ 
ным и выходным файлами. Слова ЧИТАТЬ и ПИСАТЬ 
требуют в качестве параметра адрес буфера ( ВХОД- 
БУФ для ввода и ВЫХ-БУФ для вывода), а слово 
ЧИТАТЬ , кроме того, возвращает логический резуль¬ 
тат — признак успешного завершения чтения. 

В заключение рассмотрим направления, в которых 
можно развить данную реализацию. 

1. Если сопрограммы могут использовать общий 
стек данных, то можно сохранять и восстанавливать 
только указатель стека возвратов. 

2. Можно передавать параметры при начале работы 
сопрограммы, а также при каждом возобновлении. 
Для этого потребуется специальное слово, пересылаю¬ 
щее указанное число элементов стека вызывающей 
сопрограммы на стек вызываемой. 

3. Предусмотрев поле связи для сцепления всех 
сопрограмм в список, можно получить состояние всей 
совокупности взаимодействующих сопрограмм. 
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4. Можно предусмотреть вызов асинхронного выхода 
«Окончание задачи». Идентификация этого выхода 
может быть как статической, так и динамической. 

5.. Часть действий можно выполнять в состоянии 
исполнения, а не компиляции. Среди этих действий 
могут быть следующие: создание сопрограммы без име¬ 
ни и отведение заказываемого участка памяти в динами¬ 
чески распределяемой памяти, инициализация этой 
области памяти, освобождение области памяти сопро¬ 
граммы при ее завершении. 

6. Если использовать косвенный вызов через пере¬ 
менную типа ѴЕСТ , можно динамически определять 
возобновляемую сопрограмму. 

Возможны, конечно, и любые другие изменения, 
диктуемые конкретной обстановкой. 

3.9. Запланированное перекрытие 

ч 

Адресное пространство форт-системы не так уж 
велико — 64 К байт. Это налагает известное ограниче¬ 
ние на общее число форт-слов, одновременно присут¬ 
ствующих в словаре. Для снижения этого ограничения 
можно применить свернутый шитый код или использо¬ 
вать форт-систему, в которой в качестве основного 
вместо 16-разрядного значения выступает 32-разрядное. 
Можно заметно сократить требуемый объем оператив¬ 
ной памяти, если использовать векторное поле кода. 

Опишем еще один простой способ снижения требова¬ 
ний к памяти — запланированное перекрытие. Группа 
взаимосвязанных определений образует единый сегмент 
в двоичном коде, который может быть загружен на 
заранее заданное место в словаре из внешней памяти 
форт-системы. Разные сегменты, загружаемые на одно 
и то же место оперативной памяти, перекрывают друг 
друга, вот почему такая структура и названа заплани¬ 
рованным перекрытием. Благодаря тому, что хранящий¬ 
ся во внешней памяти сегмент выражен в двоичном 
коде, а не в виде текста, его загрузка идет примерно 
в 50—100 раз быстрее, чем обычная текстовая интерпре¬ 
тация. 

В приводимой далее реализации каждый сегмент 
загружается на фиксированный адрес — значение 
указателя НЕКЕ на момент начала его компиляции. 
Определение сегмента включается в список РОКТН . 
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После того как трансляция сегмента завершена, при 
его выгрузке во внешнюю память указатель вершины 
словаря понижается до прежнего значения с одно¬ 
временным исключением всех слов данного сегмента 
из списка РОКТН . При загрузке сегмента на соответ¬ 
ствующий адрес указатель вершины словаря вновь 
поднимается, и определения сегмента снова включаются 
в список РОКТН . 

Для трансляции сегментов введем глобальную пере¬ 
менную (СЕГМ) , содержащую адрес начала очеред¬ 
ного компилируемого сегмента, границы которого 
отмечаются словами СЕГМ-НАЧ и СЕГМ-КОН. Вы¬ 
грузку и загрузку сегментов выполняют слова СЕГМ- 
ВЫГР и СЕГМ-ЗАГР . 

ѴАЯІАВІ-Е (СЕГИ) 

і СЕГМ-НАЧ ( -> НАЧАЛО ТРАНСЛЯЦИИ СЕГМЕНТА) 

НЕКЕ ОЦР (СЕГМ) ! О , ( НОМЕР ЭКРАНА) 

МЕРЕ О С, ВЦ С, ( ФИКТИВНОЕ ИМЯ) 

РОЯТН ВЕГІІШІ0№ 1.АТЕВТ , ( ЗВЕНО СВЯЗИ) 

СІІАЯБЫТ в ! , ( ТОЧКА ЗАГРУЗКИ) 

0,0, ( АЛИНА И ПОСЛЕДНЯЯ СТАТЬЯ) 

! СЕГМ-КОН ( -> КОНЕЦ ТРАНСЛЯЦИИ СЕГМЕНТА) 

(СЕГМ) в >Я ( ТОЧКА ЗАГРУЗКИ СЕГМЕНТА) 

КЕНЕ Яв - ( ДЛИНА) ОЦР «в в + ! 

РОЯТН ОЕРШТІОИВ 1.АТЕВТ Й> 10 + ! | 

; СЕГМ-ВЫГР ( N1 НОМЕР ЭКРАНА-) ВЫГРУЗКА) 

Ш (СЕГМ) В >Я ЯВ ! ( НОМЕР) 

ЯВ ЗЫАР ( А:АДРЕС СЕГМЕНТА,Ы) 01ІР ЯВ В + В 
1023 + 1024 / ( А,N,N,N11 ЧИСЛО ЭКРАНОВ) 

СЯ ." СЕГМЕНТ ВЫГРУЖЕН НА ЭКРАНЫ8 " + ЗЫАР 00 
I . ( АІ 5АДРЕС СЛЕДУЮЩЕЙ ПОРЦИИ) ОЦР I ВЦРРЕЯ 
1024 СМ0ѴЕ 11Р0АТЕ 1024 +Ю0Р 0Я0Р 
П.112Н Я) (Р0ЯВЕТ) \ 

і СЕГМ-ЗАГР ( N1 НОМЕР ЭКРАНА-) ЗАГРУЗКА) 

ОЦР ВЮСК ( N, АО * АДРЕС ПЕРВОГО БЛОКА СЕГМЕНТА) 

201ІР В - ІР 0Я0Р СЯ . ." - БЛОК ДЛЯ ЗАГРУЗКИ?" 

АВ0ЯТ ТНЕЫ оиір 6 + В (Р0Я6ЕТ) 20ЦР 

НЕЯЕ ( N,АО,N,АО,А1:НАЧАЛО) БИАР В + В ( N,АО,N, АІ ,I) 

ОЦР АІЮТ 1023 + 1024 / ( Ы, АО,N,А1,N1I ЧИСЛО ЭКР) ЯОТ 
ОЦР ЯОТ + ЗЫАР ( ,..Ы1 + М> 00 I ВЮСК ОѴЕЯ 1024 СМОѴЕ 
1024 + ЮОР 20Я0Р ( ІО ВЮСК 10 + В СІІЯЯЕНТ В ! | 


Слово СЕГМ-НАЧ строит заголовок сегмента, ко¬ 
торый располагается в его начале и содержит начальный 
номер экрана во внешней памяти, фиктивную словарную 
статью, адрес начала сегмента в оперативной памяти, 
длину сегмента и адрес начала его последней словарной 
статьи. Номер экрана определяется программистом при 
выгрузке сегмента во внешнюю память, впоследствии 
именно с этого экрана начинается его загрузка. Слово 
СЕГМ-ЗАГР проверяет, содержат ли первые 2 байта 
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сегмента данный номер, и выдает сообщение об ошибке, 
если это не так. 

Фиктивная словарная статья в заголовке сегмента 
аналогична полю параметров для слов, определен¬ 
ных через ѴОСАВЫЬАКУ , и служит для включения 
определений данного сегмента в список РОКТН при за¬ 
грузке сегмента. Она сцепляется с последней статьей 
списка РОКТН на момент начала трансляции сегмента. 
При загрузке сегмента список РОКТН устанавливается 
на последнее определение внутри данного сегмента. 
Таким образом, словарные статьи сегмента вновь 
включаются в словарь форт-системы. При изменениях 
состояний словаря, связанных с загрузкой и выгрузкой 
сегментов, в качестве вспомогательного используется 
слово (РОКОЕТ), которое корректным образом пони¬ 
жает вершину словаря, исключая из него все системные 
ссылки на исключаемые статьи. В качестве параметра 
это слово использует новый адрес вершины словаря 
(см. модель форт-системы в приложении 1). 

3.10. Элементарная машинная графика 

Машинная графика — чрезвычайно перспектив¬ 
ная область для применения языка Форт. Поскольку 
для задач машинной графики постоянно ведется поиск 
все новых и новых способов их постановки и решения, 
то здесь как нигде требуется очень гибкий инструмен¬ 
тальный язык, позволяющий быстро реализовывать 
и проверять на практике разные варианты решений. 
Принцип обратной оперативной связи между постанов¬ 
кой задачи и ее решением позволяет программисту 
добиваться существенно более высоких профессиональ¬ 
ных результатов, чем при традиционных подходах. 

Вместе с тем развитие машинной графики в значи¬ 
тельной степени определяется наличием тех или иных 
аппаратных средств. Чрезвычайное разнообразие их 
конкретных характеристик делает невозможным соз¬ 
дание какого-либо универсального языка, применимого 
для всех возможных случаев. Язык Форт позволяет 
программисту самому быстро создавать необходимые 
инструментальные средства, применяя универсальные 
приемы с учетом особенностей конкретной задачи. 

Рассмотрим две очень равные по сложности задачи 
построения графиков функций; В первой используется 
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алфавитно-цифровой терминал, во второй — графо¬ 
построитель с широким набором возможностей. 

В случае использования алфавитно-цифрового тер¬ 
минала задача состоит в том, чтобы отобразить в нем 
график функции, заданной вектором своих значений. 
Введем понятие вектора, элементы которого нумеруются 
от нуля, по аналогии со словом рііАЫ (см. п. 3.4). 
Для получения адреса элемента вектора и для при¬ 
сваивания ему нового значения можно использовать 
те же слова АТ и ТО . 

: ?+ ( N->N1 ОЧР 0< АВОЯТ" ОТРИЦАТЕЛЬНОЕ ЗНАЧЕНИЕ" \ 
і В-АДР ( I:ИНДЕКС,РРА—>АС13:АДРЕС) 20ЦР в ІК 
ІР ВЫАР 1+ 2* + ЕХІТ ТНЕМ ЗЫАР СЯ 
. - НЕДОПУСТИМЫЙ ИНДЕКС ДЛЯ ВЕКТОРА н 

ВОВУ) ВОВУ) ВООУ) >МАМЕ 10. АВОЯТ | 
і В-АДРО ВОЕВ> ( I:ИНДЕКС,РРА->АС13 і АДРЕС) В-АДР \ 
і В-ПРИСВ 00Е5> ( N1ЗНАЧ,1 1 ИНДЕКС^2СРА->) 2+ В-АДР ! | 

! ѴЕШАИ ( N1 ВЕРХИ.ИНДЕКС-)) ?+ СЯЕАТЕ В-ПРИСВ НЕЯЕ 2- в , 
В-АДРО НЕЯЕ 4 - в , 1+ ВУІР , 2* НЕЯЕ ЗЫАР ВІІР А1Л0Т 

ЕЯА5Е ВОЕВ) ( I: ИНДЕКС, 1СРА->Ш 13!ЗНАЧ) 4 + В-АДР В } 
і В-РАЗМ ( - >Ыі ЧИСЛО ЭЛЕМЕНТОВ) 

' 6 + в [СОМРИЕЭ 11ТЕЯАЦ } ІММЕВІ АТЕ 


Невысокая разрешающая способность алфавитно- 
цифрового терминала с точки зрения машинной графи¬ 
ки вполне допускает использование стандартных целых 
чисел для представления значений вещественных функ¬ 
ций. Более того, такие дискретные вычислительные 
приемы оказываются значительно более удобными для 
задач машинной графики, чем работа с числами в 
формате плавающей точки. Например, тригонометри¬ 
ческие функции можно вычислять следующим образом, 
задавая их аргумент в градусной мере: 

1 16.06.36 ЗМ СОВ) I ТАБЛИЦА СИНУСОВ ОТ О № 90 ГРАД.) НЕВЕ 
00000 , 0175 , 034? , 0523 , 0698 , 0672 , 1045 , 1219 , 1392 , 

1564 , 1736 , 1908 , 2079 , 2250 , 2419 , 2588 , 2756 , 2924 , 

3090 , 3256 , 3420 , 3584 , 3746 , 3907 , 4067 , 4226 , 4384 , 

4540 , 4695 , 4848 , 5000 , 5150 , 5249 , 5446 , 5592 , 5736 , 

5878 , 6018 , 6157 , 6293 , 6428 , 6561 , 6691 , 6820 , 6947 , 

7071 , 7193 , 7314 , 7431 , 7547 , 7660 , 7771 , 7880 , 7986 , 

8090 , 8192 , 8290 , 8387 , 8480 , 8572 , 8860 , 6746 , 8829 , 

8910 , 8988 , 9063 , 9135 , 9205 , 9772 , 9336 , 9397 , 9455 , 

9511 , 9563 , 9613 , 9659 , 9703 , 9744 , 9781 , 9816 , 9848 , 

9877 , 9903 , 9925 , 9945 , 9962 , 9976 , 9986 , 9994 , 9998 , 

10000 , ! 5Ш160 ( И-ЯЖ Н, СК^ЧВО) 

ШР 90 > ІР 180 БИАР - ТНЕМ 2* [ ШМ И ТЕМ. + I ) №0Р 

: 5Ш ( И-ЯЖ № 360 №0 СШР (К ІР 360 ♦ Ш 

ОН» 160 > ІР 180 - 81(1180 ИЕвАТЕ Е16Е 6Ж180 ТНЕМ ; 

: С08 < Н-ХЮ5 № 90 8М№ - 8Ш ; 
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Аналогично и другие элементарные функции можно с 
успехом вычислять по классическим итерационным 
схемам: 

( БЗОКТ ЗОКТ ИЗВЛЕЧЕНИЕ КОРНЯ ПО СХЕМЕ НЬЮТОНА) 

: озаит ( 01 ->02) 2Ш 

Б0< АБОРТ" ОТРИЦАТЕЛЬНЫЙ АРГУМЕНТ" 

2№Р 2. Б< ІР ЕХІТ ТНЕЫ 

( ДАЛЕЕ ПО СХЕМЕ: XЕ03*Х/2» ХЕІ + І>ХШ/2 + ХШП/2> 

20УР 2. Ь/ ЗИАР 

ВЕБІЫ 20ѴЕР 20ѴЕР Б/ 20ѴЕР Б+ 2. О/ 25ЫАР 20ѴЕР 
О- 0АВ5 2. Б< иНТИ 
25ИАР ШОР і 

: ЗОНТ ( N1 — >N2) 3>0 08Ш ШР ; 

Некоторое неудобство при таком представлении 
функций доставляет необходимость помнить о масштаб¬ 
ном множителе, но это с лихвой возмещается простотой 
приемов их вычисления. 

Используя описанные вспомогательные средства, 
можно задавать векторы со значениями интересующих 
нас функций. Работая с простыми значениями, будем 
пользоваться их описанием через слово (^ИАМ. 
Пусть наша функция в обычной записи имеет вид: 
у = йіп Зх + йіп 1 20х. Зададим ее определение через 
введенные инструментальные определения, выбрав 100 
в качестве масштабного множителя: 

70 ѵоіш и 

і іл < -> УСТАНОВКА ВЕКТОРА 0) В-РАЗМ и 0 00 

3 I # ЗІМ 120 I * ЗІМ + 100 / I ТО и ШОР I 
ІИ 

При желании можно проверить правильность установки 
значений, распечатав их как числа: 

I В-? < -> РАСПЕЧАТКА ВЕКТОРА) МЫ С Ж 

СС0МРП.ЕЗ В-РАЗМ Я) >ІМ ! ' ВЫ АР 0 Б0 
1 0ѴЕР ЕХЕС0ТЕ 8 .Я ЮОР ОПОР > 

в-? и 

В результате будет напечатан следующий текст: 


0 

93 

-76 

15 

109 

-42 

30 

124 

-47 

45 

13Ѳ 

-34 

5В 

151 

-21 

70 

142 

-10 

60 

172 

0 

69 

179 

4 

95 

165 

9 

96 

16В 

11 

100 

16В 

10 

96 

164 

7 

95 

161 

2 

69 


120 



177 

-4 

00 

166 

-14 

70 

155 

-25 

58 

143 

-ЗВ 

45 

129 

-52 

30 

114 

-67 

15 

99 

-63 

0 

63 

-99 

-15 

67 

-114 

-30 

52 

-129 

-45 

ОК 



Для построения графика определим список слов РЬОТ 
(график) и в нем ряд вспомогательных переменных: 


Ѵ0САВ01АРУ РЮТ 

РЮТ 

0ЕРШТІ0И8 

аш 

КН0 4 

то 

КНО 

( 

ШИРИНА СТОЛБЦА ДЛЯ У-К00РД.) 

оііам 

миіо іб 

то 

иио 

( 

МАКСИМАЛЬНАЯ ВЫСОТА ОКНА) 

СШАИ 

НЦО 64 

ЙН0 

1 - то 

N110 < МАКСИМАЛЬНАЯ ШИРИНА ОКНА) 

ВУАИ 

Н6ТА 



( 

АДРЕС НАЧАЛА ОКНА) 

оііам 

ми 



< 

ТЕКУЧАЯ ВЫСОТА ОКНА) 

ОІІАМ 

мц 



< 

ТЕКУЩАЯ ШИРИНА ОКНА) 

віш 

НХ 



( 

Х-КООРДИНАТА ОКНА) 

аіш 

НУ 



( 

У-КООРДИНАТА ОКНА) 

01Ш 

КАРРА 



< 

ЧИСЛО ЗНАЧЕНИИ СИГНАЛА) 

аУАы 

ІАМВОА 



< 

ДИАПАЗОН ЗНАЧЕНИИ СИГНАЛА) 

ВІШ 

МА 



< 

МАКСИМАЛЬНОЕ ЗНАЧЕНИЕ СИГН.) 

ОІШ 

міио 



< 

МИНИМАЛЬНОЕ ЗНАЧЕНИЕ В ОКНЕ) 

ѴЕСТ 

ѴАІ. 



( 

ВЕКТОР СИГНАЛА) 


Пусть прямоугольный экран терминала, на котором 
строится график, содержит МШ строк по N{„10 литер 
каждая. Первые КНО позиций в каждой строке зани¬ 
мает надпечатка ее координаты по оси ординат. Общий 
размер графика определяется значениями ЬАМЕША 
(диапазон значений функций) и КАРРА (число зна¬ 
чений) . Этот прямоугольник может как умещаться цели¬ 
ком на экране терминала, так и заметно превышать его. 
Определим понятие «окна», которое перемещается по 
графику и показывает на экране терминала соответ¬ 
ствующую его часть. Переменные АѴХ и АѴѴ задают 
координаты левого верхнего угла окна относительно 
левого верхнего угла графика. Определим слова, вы¬ 
полняющие инициализацию и перемещение окна по 
полю графика: 

РОРТН ОЕРШТІОЫЗ РЮТ 
I НАЧАТЬ ( -> ИНИЦИАЛИЗАЦИЯ) РЮТ 
НЕКЕ N110 №10 « АНОТ ТО НВТА | 

РЮТ 0БРШТІ0МЗ 

і ВВЕРХ ( М-> СДВИНУТЬ ОКНО НА N ПОЗИЦИИ ВВЕРХ) 

?+ НУ ВНАР - О МАХ ТО НУ | 

I ВЛЕВО < И-> СДВИНУТЬ ОКНО НА N ПОЗИЦИИ ВЛЕВО) 

?+ НХ 8НАР - О МАХ ТО НХ | 
і ВНИЗ ( М-> СДВИНУТЬ ОКНО НА N ПОЗИЦИИ ВНИЗ) 

?+ НУ + ми + ІАМВВА МІМ мц - ТО НУ \ 
і ВПРАВО ( И-> СДВИНУТЬ ОКНО НА N ПОЗИЦИИ ВПРАВО) 

?+ НХ + N11 + КАРРА МХЫ N0 - ТО НХ | 

Определим также слова для вычисления параметров 
графика и распечатки, окна по его текущим координа¬ 
там. Вспомогательное слово МУ по значению функции 
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определяет, где находится соответствующая точка 
графика: ниже окна, внутри или выше него. Если 
точка попадает в окно, будем отмечать ее положение 
знаком * (звездочка), а если точка находится выше 
или ниже окна, то соответственно в самой верхней или 
самой нижней строке окна поставим знак + (плюс), 
чтобы видеть направление, в котором следует искать 
данную точку на графике. Ось абсцисс, если она попадает 
в окно, будем отмечать строкой из знаков «минус». Над¬ 
печатку координат по оси абсцисс будем выполнять 
дважды — в верхней и нижней строках терминала. 

1 -МЫ ( Ы: ЗНАЧЕНИЕ->-1 1 НИЖЕ ОКНА/ 

Мі СМЕЩЕНИЕ ОТ ВЕРХА ОКНА ВНИЗ,О/ 

+1:ВЫШЕ ОКНА ) 

міио - вир о< ір ввор -і бхіт тнеи 

МЦ 1- 5НАР - ВЦР 0< ІР ВВОР 1 ЕХІТ ТНЕИ О I 

* ФУНКЦИЯ ( -> СЛЕДУЮЩЕЕ СЛОВО: ИМЯ ВЕКТОРА ЗНАЧЕНИИ) 

>ІИ 8 >Я ССОМРІІЕ] В-РАЗМ В> >ІИ ! 
вцр ТО КАРРА *Ш0 МІИ ТО № ' ТО ѴАІ 

( ВЫЧИСЛЕНИЕ МА И 1АМВ0А ) 

О ѴАІ ВЦР ( ХС03,ХШ ) 

КАРРА О ВО I ѴАІ. < МІМСІ-13,МАХСІ-ІЗ,Х[ІЗ ) 
вир >Я МАХ ВИАР В> МIN ( МАХ С13, МIN СI ]) БИАР ЮОР 
ВЦР ТО МА БИАР - 1+ ВЦР ТО 1АМВ0А МЦО МІИ ТО МЦ 
О ТО ИХ О ТО ИѴ \ 

і ОСЬ-Х ( НАДПЕЧАТКА ОСИ X) СВ ВНО 5РАСБЗ ИХ № 1- ВНО - ИХ 

веб і N вир іо мов ни? ір іо знар - тнеы пир >в + гвир >■ 

ИННЕ В> 8РАСЕ5 С" ! ЕМІТ ВЦР 0 <4 «5 #> ВЦР >В ТУРЕ 
1+ В> + ВЕРЕАТ ВВВОР 2ВВ0Р | 

і ГРАФИК ( -> РИСОВАТЬ ГРАФИК ПО СИГНАЛУ И КООРДИНАТАМ ОКНА) 

мА иѵ - мц і- - то міио ( установить мш) 

ибта пи ми « вьамк ( зачистить окно) 

о -ми о» ір ыи * ибта + іш с - рш тнеы ( провести ось х) 

( ЦИКЛ ПО ОСИ X ДЛЯ ЗАПОЛНЕНИЯ ОКНА) ИХ № + ИХ во 

і ѵаі. < хсіз) -ми ни? ір < вне окна) і + ір < выше окна» 

С" + О ЕІЗЕ ( НИЖЕ ОКНА) С" + МО 1- ТНЕМ 

ЕІЗЕ ВВОР С" * БИАР ТНЕЫ 
ИЦ * I ИХ - + ИБТА + С! ЮОР 

ось-х пи о во св ма иѵ - і - вно .в і м * изта + 

ИЦ ТУРЕ ЮОР ОСЬ-Х I 


Следующий протокол показывает работу введенных 
определений по вычерчиванию графика интересующей 
нас функции: 


> начать функция и 

! О ! 10 

133 
187 
186 
183 
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163 
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181 
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!20 !30 

« « 
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* 


140 !30 


* 
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Вычерчивание графиков на графопостроителе чрезвы¬ 
чайно осложняется обилием деталей чертежа, которые 
надо учитывать. При этом собственно вычисление значе¬ 
ний функции составляет незначительную часть в общем 
объеме работы. Многие элементы чертежа имеют, как 
правило, какое-нибудь стандартное значение, прини¬ 
маемое по умолчанию, и программист может их только 
переопределять (например, заголовок, штамп, оформле¬ 
ние полей, выбор шрифтов и цвета надписей и т. д.). 
С каждым из этих крупных элементов можно связать 
список слов, обрабатывающих те или иные его компо¬ 
ненты, и для установки нужного значения исполнять 
соответствующее слово в контексте данного элемента. 
Сходные действия (например, задание шрифта или 
цвета) в разных контекстах могут обозначаться одними 
и теми же словами, что создает большие удобства для 
программиста. Вместе с тем и синтаксис для задания 
действий графопостроителя можно сделать макси¬ 
мально простым и удобным для пользователей-непро- 
граммистов. Например, определение элементов чертежа 
можно задавать так: 

ГРАФИК XV X ОТ 0 ДО 4ІАГ I 

V ЛОГАРИФМ ОТ 1 ДО 100 
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X ШТРИХ РАЗМЕР 0.25 РАМКА 
ЗАГОЛОВОК” ЧЕРТЕ* і" РИСУЙ 


В результате будет нарисована прямоугольная рамка 
с заголовком «ЧЕРТЕЖ 1» надпечаткой оси абсцисс 
в виде штрихов, пересекающих рамку, и логарифмиче¬ 
ской разметкой оси ординат. Огромное число других 
значений, необходимых для построения чертежа, при¬ 
нимается по умолчанию. Далее можно начертить 
собственно график функции, используя, например, ее 
задание через вектор значений: 

ФУНКЦИЙ и МАСШТАБ 100 ЦВЕТ красный рисуй 

Аналогично наносим на чертеж дополнительные элементы: 

ПОДЗАГОЛОВОК ВПРАВО 

ТЕКСТ” Ѵ«ВІЫ ЗХ + ЗІЫ 120Х" РИСУЙ 

и т. д. Указанные действия можно не только непосред¬ 
ственно исполнять, но и компилировать, задавая впо¬ 
следствии их исполнение через одно слово — имя 
скомпилированной программы. 


3.11. Реализация встроенного ассемблера 


Приводимый ниже текст является законченной 
реализацией встроенного структурного ассемблера для 
форт-систем на базе микропроцессора К580. В от¬ 
транслированном виде он занимает около 1300 байт 
и является типичным для 8-разрядных микропроцес¬ 
соров. Для 16- или 32-разрядных процессоров в силу 
их большей сложности объем текста больше. Но даже 
в этом случае объем исходного текста и скомпилирован¬ 
ного кода существенно меньше, чем для традицион¬ 
ных ассемблеров. 

( РОКТН-ВЗ АССЕМБЛЕР ДЛЯ К560 ТЕМЯ1КИН0 1985 ) 

Ѵ0САВІЛ.АЯѴ АЗВЕНВІЕК 
АЗЗЕМВІЕК 0ЕРШТКЖ8 

< МАШИННЫЕ КОМАНДЫ ) 

0ЕСІМАІ і 8* 2* 2* 2* | 

4 СОЫЗТЙНТ Н 5 СОЫЗТАЫТ I 7 СОЫЗТАЫТ А 6 СОЫЗТАЫТ Р5И 
2 С0ЫВТЙНТ 0 3 С0ЫВТАЫТ Е 0 СОЫЗТАЫТ В 1 С0ШАЫТ С 
6 СОЫЗТАНТ М 6 СОЫЗТАЫТ ЗР 
і 1МІ ( ---> ) СВЕЙТЕ С, О0ЕВ> СІ С, | 

I 2МІ < ---> ) СВЕЙТЕ С, ООЕЗ> СІ + С, | 

I ЗМІ ( ---> ) СВЕАТЕ С, В0ЕВ> СІ ВИАР 8* + С, | 

і 4МІ < ~-> ) СПЕЙТЕ С, 00ЕЗ> СІ С, С, | 

і 5МІ ( ---> ) СВЕАТЕ С, 00ЕЗ> СІ С, , | 
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і МОѴ ВИАР В* 40 + + С, I 

: МѴІ ЗИАР б* 6 + С, С» I 

і іхі виар а* і + с, , і 

( КОДЫ УСЛОВИИ ДЛД СТРУКТУР УПРАВЛЕНИЯ ) 

С2 СОЫЗТАЫТ 0= 02 СОЫЗТАЫТ СЗ 

Е2 СОЫЗТАЫТ РЕ Р2 СОЫвТАЫТ 0< 

< СТРУКТУРЫ УПРАВЛЕНИЯ ) 

ОЕСІМАІ 

і ЫОТ ( ЫіКОД УСЛОВИЯ —'-> N1) в + | 

} Т НЕ N < АДР,2 —> ) 2 7РАІВЗ НЕВЕ ВИАР ! \ 

: ІР ( КОД -—> АДР,2 ) С, НЕВЕ 0,2; 

1 ЕЮЕ < АДР,2 —> АДР1,2) 2 7РАІВЗ СЗ ІР ВОТ ЗИАР ТНЕМ 2 | 

: ВЕ61N ( ---> АДР11 ) НЕВЕ 1 ; 

і ШШІ. < АДР,1,КОД — >) ЗИАР 1 7РАІР5 С, , | 

і А6АІ N ( АДР, 1 --->) I 7РАІРЗ СЗ С, , | 

і ШИНЕ ( АДР, 1,КОД — > АДР, 1,АДР 1, 4) ІР 2 + | 

I ВЕРЕАТ ( АДР,I,АДР1,4 -—» >Р >В А6АIN Р> Р> 2- ТНЕЫ | 

( РАБОТА С МЕТКАМИ ) 

10 СОШАІЧТ І-ВІ_МАХ I МАКСИМАЛЬНОЕ ЧИСЛО ЛОКАЛЬНЫХ МЕТОК) 

VАРIАВЬЕ ИАВЬЕ ІВІ.МАХ 1+ 2* АШЗТ ' 

10 СОИВТАИТ РВМАХ ( МАКСИМАЛЬНОЕ ЧИСЛО ССЫЛОК ВПЕРЕД) 

ѴАВІАВІЕ РВТАВІЕ РВМАХ 2* 2* АИОТ 
і РРСНК < —> ПРОВЕРКА НЕРАЗРЕШЕННЫХ ССЫЛОК ВПЕРЕД ) 

РВМАХ 0 00 I 2* 2* РВТАВІЕ + в 

АВОВТ" НЕРАЗРЕШЕННАЯ ССЫЛКА ВПЕРЕД" 

ЮОР } 

і РВСІ.В ( ---> ИНИЦИАЛИЗАЦИЯ ТАБЛИЦЫ ССЫЛОК ВПЕРЕД ) 

РВТАВІЕ РВМАХ 2» 2» ЕВАВЕ 
ІТАВІЕ І_ВІ_МАХ и 2* ЕВАЗЕ | 


I РВВЕЗ < N і МЕТКА > РАЗРЕШЕНИЕ ССЫЛОК ВПЕРЕД ) 

РВМАХ 0 00 I 2« 2* РВТАВІЕ + 200Р « » 

ІР НЕВЕ ОѴЕВ 2+ « +! О! 

Е18Е ОВОР ТНЕ N 
ЮОР I 

I РВАОО ( N я МЕТКА ---> ДОБАВЛЕНИЕ ССЫЛКИ ВПЕРЕД В ТАБЛИЦУ ) 

РВМАХ 1+ О 

00 РВМАХ I » АВОВТ" СЛИШКОМ МНОГО ССЫЛОК ВПЕРЕД" 

I 2* 2* РВТАВІЕ + ОЦР « О* 

ІР 201ІР ! НЕВЕ и ВЫАР 2+ ! ІЕАѴЕ ЕІВЕ ОВОР ТНЕЫ 
ЮОР } 
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( ОПРЕДЕЛЯЮЩИЕ ВХОЖДЕНИЯ МЕТОК ) 

: ІІ.Т СРЕАТЕ , 00Е5> в РРРЕ5 НЕКЕ БИАР 2* І.ТАВІЕ * ! ; 

І.ООР \ 

< ОПРЕДЕЛЯЮЩИЕ ВХОЖДЕНИЯ МЕТОК ) 

2 ! И СРЕАТЕ , 00Е5> 4 РРРЕЗ НЕРЕ ЗМАР 2* ІЛАВІ.Е * ! | 

< ИСПОЛЬЗУЮЩИЕ ВХОЖДЕНИЯ МЕТОК ) 

: ИТ СРЕАТЕ , 00Е5> I ОІІР 2* 

ІЛАВІ.Е * I БИАР ОѴЕР 0 = 

ІР РРАОО ТНЕЮ ОРОР | 

1 ИТ I#: 2 ПТ 24: 3 ПТ 34: 4 ПТ 44* 5 ПТ 54: 

6 ПТ 64: 7 ПТ 74: 8 ПТ 84: 9 ПТ 9#і 10 ПТ 1 0#і 

1 НТ 1» 2 ПТ 24 3 ПТ 34 4 ПТ 44 5 НТ 54 

6 НТ 64 7 НТ 74 В ПТ 84 9 НТ 94 10 ІІТ 104 

< ПЕРЕКЛЮЧЕНИЕ В АССЕМБЛЕР ) 

РОРТН ОЕРINIТ10Ы5 

: ВЕВ-А5М С А55ЕМВІ.ЕВ ] РИСК* С РОРТН ] А53ЕМВІ.БК 

! СЕР | 

і ЕИО-АЗМ С А55ЕМВІ.ЕР 3 РРСНК С РОРТН 3 ?СЗР 

В приведенном тексте можно выделить четыре груп¬ 
пы определений: машинные команды, структуры управ¬ 
ления, метки и стандартные слова для создания опреде¬ 
лений в машинном коде. Помимо них данный текст 
определяет ряд вспомогательных слов. 

Машинные команды на языке ассемблера запи¬ 
сываются в обратной польской форме, принятой для 
языка Форт: <операнды> <операциям , где <опе- 
ранды> — слова, вычисляющие на стеке размещения 
операндов данной машинной команды, а <операция> 
ее мнемоника. Для обозначения регистров микропро¬ 
цессора К580 зарезервированы слова А В С О Е .Н Е , 
для задания регистровых пар используются слова 
В I) Н 8Р Р5\Ѵ , для косвенной адресации через реги¬ 
стровую пару НЕ — слово М. 

При исполнении слов, обозначающих регистры, реги¬ 
стровые пары и косвенную адресацию, на стеке остав¬ 
ляются значения, соответствующие принятым в системе 
команд К580 обозначениям для регистров и регистро¬ 
вых пар: 

к АВС0ЕНІ.Н8Р РВИ 

701234566 6 

При исполнении мнемоники машинной команды на 
вершину словаря компилируется соответствующая 
машинная инструкция. Размещения операндов при этом 
снимаются со стека. Порядок вычисления операндов 
машинной команды соответствуют порядку написания 
операндов на обычном языке ассемблера. 

Ниже приведены для сравнения записи машинных 
команд на обычном языке ассемблера п на языке ас¬ 
семблера данной форт-системы: 
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ЗР 

ВР ОАО 
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РВИ 

рзн ризн 
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Для определения мнемоник используются опре¬ 
деляющие слова, соответствующие форматам машин¬ 
ных команд ( 1МІ, 5М1 ). Все они имеют одинаковую 
создающую часть, которая компилирует в поле пара¬ 
метров статьи для мнемоники однобайтный код маски 
для кода данной команды, который снимается со стека. 
Исполняющая часть определений, используя маску 
и размещения операндов, которые она снимает со стека, 
компилирует двоичный код, соответствующий данной 
команде. Так, например, через слово 1МІ определяются 
машинные команды, не имеющие операндов. При ис¬ 
полнении мнемоники такой команды на вершину слова¬ 
ря компилируется однобайтный код операции. Слово 
ЗМІ определяет мнемоники команд, имеющих один 
операнд — номер регистра. Этот номер занимает раз¬ 
ряды со 2 по 4 в однобайтном коде команды. Поэтому 
исполняющая часть сдвигает свой операнд — номер 
регистра — влево на 3 разряда исполнением слова 8* 
и добавляет к нему маску команды. Получившийся 
однобайтный код компилируется на вершину словаря. 
Три команды — МОѴ, МѴ1 и ЬХІ — не подходят под 
описанные общие форматы, поэтому они определяются 
непосредственно через двоеточие. 

Структурные операторы встроенного ассемблера 
позволяют программировать разветвления и циклы без 
явно заданных команд перехода на метку. Их синтак¬ 
сис аналогичен синтаксису соответствующих операто¬ 
ров языка Форт. 

Условный оператор в полной или сокращенной фор¬ 
ме записывается следующим образом: 

<код-КЛЮЯ) ІР <ЧЮИ0>ШЕ <чйсть-мнш ш 

тншт> ір <часть-то> тнш 

Часть «то» выполняется, только если в разрядах Р5\У 
установлен заданный «код условия», в противном слу¬ 
чае выполняется часть «иначе», если она есть. 
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Циклы могут быть записаны в одной из трех форм: 

ВЕѲ IN <ТЕЛО-ЦИКЛА> АВА IN 

ВЕВХН <ТЕЛО-ЦИКЛА> <КОД-УСЛОВИЯ> ШИ 

ВЕѲ IN <ТЕЛО— 1 > <К0Д-УСЛ0ВИЯ> ИННЕ <ТЕЛ0-2> КЕРЕАТ 

Цикл ВЕСІМ-АСАІЫ является бесконечным, ВЕСШМ- 
ІШТІЬ прекращает выполнение при к указанном коде 
условия, в цикле ВЕСШ-\УН1ЬЕ-КЕРЕАТ, наоборот, 
указанный код условия задает продолжение цикла. 

Для указания кода условия в ассемблере исполь¬ 
зуются следующие слова: 0— —установлен флаг 2, 
0< — флаг 5, С$ — флаг С, РЕ — флаг Р. Для инвер¬ 
тирования кода условия используется слово N01. 

Структурные операторы компилируют на своем месте 
команды безусловных и условных переходов с указан¬ 
ным условием. 

Для работы с явно задаваемыми метками в ас¬ 
семблер включены слова вида 1 ф : 2ф: ... 10 ф: и 1 ф 
ф2ф ... 10ф. Слова первой группы задают определе¬ 
ние метки, слова второй — использование. Метки имеют 
строго локальный характер, т. е. эти слова можно ис¬ 
пользовать только внутри определений через ССЮЕ и 
между словами ; ССЮЕ и ЕРЮ-ССЮЕ . Наряду с метка¬ 
ми допускается использование ассемблерных структур 
управления. 

Локальные метки рекомендуется использовать толь¬ 
ко в трехбайтных командах типа ЛМР, САИ-, Ѵ.ХІ . 
Уже определенные локальные метки могут участвовать 
в арифметических и стековых операциях; использую¬ 
щие вхождения меток, определяющие вхождения кото¬ 
рых вводятся позднее (ссылки вперед), могут участво¬ 
вать только в операциях, сводящихся к добавлению 
к ним числа со знаком. 

Для реализации работы с метками ассемблер имеет 
таблицу меток ЕТАВЬЕ и таблицу ссылок вперед 
РКТАВЬЕ . Их размер определяет максимальное число 
разных меток и ссылок вперед в пределах одного опре¬ 
деления в машинном коде (от слова СОЭЕ или ; ССЮЕ 
до слова ЕЫО-ССЮЕ ). Для каждой возможной метки 
соответствующий элемент таблицы ЬТАВЬЕ содержит 
нуль, если метка еще не определена, или адрес, который 
является ее значением, если метка уже определена. 
Входом в эту таблицу служит номер метки. В таблице 
РКТАВЬЕ для каждой ссылки вперед хранятся два 
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значения: номер метки и адрес в словаре, по которому 
нужно вписать ее значение. По этому адресу скомпили¬ 
ровано значение смещения, которое нужно добавить 
как число со знаком к значению данной метки. 

Слова для использующих вхождений меток опреде¬ 
ляются через @ЬТ, например 1 @ЬТ 1ф. Исполнение 
определенного таким образом слова 1 обозна¬ 
чающего метку номер 1, состоит в обращении к таб¬ 
лице ЬТАВЬЕ по индексу I. Если там стоит нуль, т. е. 
метка номер 1 еще не определена, то этот нуль выдается 
на стек в качестве смещения от значения метки, которое 
определится позднее. Одновременно в таблицу РКТАВЬЕ 
заносится запись о данной ссылке вперед. В качест¬ 
ве адреса, куда нужно будет впоследствии вписать 
значение метки, берется НЕКЕ 1 +. Здесь использу¬ 
ется тот факт, что в микропроцессоре К580 операнд- 
адрес занимает 2 байта, следующие за однобайтным 
кодом операции. 

Слова для определения меток определяются через 
слово !ЬТ , например 1 !ЬТ I#:. Исполнение опреде¬ 
ленного таким образом слова 1 # : определяет метку 
номер 1 как текущий адрес вершины словаря НЕКЕ . 
Его действие состоит в том, что выполняется просмотр 
таблицы РКТАВЬЕ с разрешением всех накопившихся 
ссылок на данную метку, после чего запись о данной 
метке заносится в таблицу ЬТАВЬЕ . 

Последнюю группу определений составляют слова 
для доступа к встроенному ассемблеру при компиляции 
машинного кода. Помимо стандартных форт-слов 
СОЭЕ, ; СООЕ и ЕЫО-СООЕ здесь определяются слова 
ЕАВЕЬ и ЫЕХТ; . Первое используется для создания 
именованных подпрограмм, к которым можно обра¬ 
щаться из машинного кода. Второе является сокраще¬ 
нием для часто встречающегося окончания ассемблер¬ 
ных определений: ЫЕХТ ЛМР ЕЫО-СООЕ . В качестве 
примера приведем определение слова :> < , которое 
меняет местами байты в переданном на стеке двух¬ 
байтном значении: 

СООЕ X < N1 —> N2) Н РОР 

а и МО V I. Н МОѴ НА НОѴ Н РІІЗН ЫЕХТ| 

Приведенная реализация встроенного ассемблера 
может быть усовершенствована по нескольким направ¬ 
лениям. Прежде всего, увеличив константы ЬВЬМАХ и 
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РКМАХ и добавив новые определения для слов, обоз¬ 
начающих метки, можно увеличить количество разных 
меток и ссылок вперед, которые разрешается исполь¬ 
зовать в ассемблерном определении. Далее можно ввес¬ 
ти контроль правильности, операндов, включив со¬ 
ответствующие проверки в исполняющую часть опре¬ 
деляющих слов для мнемоник команд. Для проверки 
числа элементов на стеке обычно используется гло^ 
бальная ячейка СЗР и слово !С5Р, которое засылает 
в нее текущий адрес вершины стека. Интересным рас¬ 
ширением является возможность введения макроко¬ 
манд. Макрокоманды без локальных меток можно опре¬ 
делять обычным образом через двоеточие: 

ІИКМ < КеРЕГИСТР ,Мі ЧИСЛО РАЗ —>) 

[ А55ЕМВІ.ЕК ] 0 00 01ІР I МЯ ЮОР 0Я0Р * 

При исполнении текста А 3 ШКЫ будут скомпили о- 
ваны три команды А ШК. 

Если же макрорасширение должно порождать обра¬ 
щения к адресам через локальные метки, то потребуется 
более основательное расширение ассемблера. 


Приложение /. 

Модель форт-системы 

Приводимый ниже текст представляет собой яд¬ 
ро системы ФОРТ-ЕС (см. приложение 2), из которого 
исключены запускающая часть и реализации слов ниж¬ 
него уровня для обмена с терминалом и внешней па¬ 
мятью). Общий объем ядра — 8 К байт (свыше 
200 слов). Текст состоит из двух частей — списка слов с 
их краткими спецификациями и экранов с определени¬ 
ями на встроенном языке ассемблера и на языке Форт. 

Помимо слов, которым соответствуют статьи в сло¬ 
варе, внутри ассемблерных определений используются 
метки и адреса. В спецификациях эти объекты отмечены 
буквами М и А. Они определяются с помощью слов 
М: и А: соответственно. Метки используются в машин¬ 
ных командах, а адреса порождают двухбайтное значе¬ 
ние, содержащее данный адрес. Адресные операнды 
РЩ5Т и ЗЕССЖЭ обозначают соответственно первый 
и второй элементы стека. Макрокоманды РЫЗН, ,РОР, 
иРУЬЬможно рассматривать как команды с одним 
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регистровым, операндом. Операция РОЗН, помещает на 
стек значение из регистра*-РОР, снимает верхнее' зна¬ 
чение со стека, засылая его в регистр* и РУЬЦ копирует 
верхнее значение стека в регистр. Кроме того, в ас¬ 
семблерных определениях используются локальные мет¬ 
ки [11, с.191], обозначаемые целыми числами и слова¬ 
ми = Р. (для ссылки вперед) й = В (для ссылки 
назад). Определяется локальная метка через сло¬ 
во = Н , которое полагает ее равной текущему зна¬ 
чению счетчика адреса. Регистры общего назначения 
обозначаются специальными словами и имеют следую¬ 


щий смысл: 


К\Ѵ1 —рабочий регистр, старший в паре; 

К\Ѵ2 — рабочий регистр, младший в паре; 

КІ —указатель адресного интерпретатора; 

ККЕТ — абсолютный адрес вершины стека воз- 

ф 


вратов; 

К8ТАСК— абсолютный адрес вершины стека 


данных; 

КО — форт-адрес текущей вершины словаря; 

КРОКТН — абсолютный адрес начала словаря, 
соответствующий нулевому форт-адресу; 

^ЕХТ — адрес точки ЫЕХТ адресного интерпре¬ 
татора (тот же адрес, что и в КРОКТН); 

КТ\ѴО — константа 2; 

КМАЗК — константа 65535. 

Предполагается также, что в регистре 13 находится 
адрес области сохранения и регистры 0, 1, 14, 15 сво¬ 
бодно используются внутри определений как рабочие. 

Тексты определений представлены в виде распе¬ 
чаток стандартных форт-текстов и занимают экраны 
с номерами от 1 до 47. В последнем столбце специфи¬ 
кации для каждого слова указан номер экрана, на ко¬ 
тором оно определено. Главным словом модели являет¬ 
ся слово ФОРТ-СИСТЕМА. 

В списке спецификаций слова расположены по воз¬ 
растанию в кодировке ДКОИ. Они могут иметь следую¬ 
щие отметки: 

А — адрес; 

М ■— метка; 

Н—слово немедленного исполнения; 

К — требуется режим компиляции; 

П — переменная, размещенная в пользовательской 
области; 
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С — системная переменная, размещенная в словаре; 
Э — требуется режим обработки экрана; 

-)-слово из дополнения к стандарту «Форт-83»; 

* — нестандартное слово. 

Для каждого слова указываются значения, которые 
оно снимает со стека (слева от знака -►), и результат, 
который оно оставляет на стеке (справа от знака ). 
Если перечисляется несколько значений, то верхнее 
(на вершине стека) находится справа. 

Для задания параметров и результатов, передава¬ 
емых через стек данных, используются следующие 
обозначения: 

_|_Ы— неотрицательное целое со знаком; 

А — двухбайтный форт-адрес; 

С — однобайтное значение (старший байт, как пра¬ 
вило, нулевой); 

СРА — двухбайтный адрес поля кода словарной 
статьи; 

О — четырехбайтное целое со знаком; 

Р — булевское значение (0 — ЛОЖЬ, не 0 — 
ИСТИНА); 

рр — булевское значение ЛОЖЬ (0); 

Ь — абсолютный машинный адрес (четырехбайт¬ 
ный) ; 

ЬРА — двухбайтный адрес поля словарной статьи; 
N — двухбайтное целое со знаком; 

ЫРА — двухбайтный адрес поля имени словарной 
статьи; 

РРА — двухбайтный адрес поля параметров сло¬ 
варной статьи; 

Т — двухбайтный адрес строки со счетчиком; 

ТР — булевское значение ИСТИНА (не 0, обыч- 

нс—1); 

Ы — двухбайтное целое без знака; 

СЮ — четырехбайтное целое без знака; 

\Ѵ — двухбайтное целое со знаком или без него. (Ы 
или Ы); 

\ѴІ) — четырехбайтное целое со знаком или без него 
(О или ЬШ) . 

Длй некоторых слов указаны две группы результа¬ 
тов, отделяемые друг от друга косой чертой (/). Они 
резличаются по булевскому значению на вершине сте¬ 
ка:, не О (ИСТИНА) означает успех, 0 (ЛОЖЬ) — 
неудачу. 

132 

* 4 


* ч 



с 


С'З 


ССОМРИЕЗ НК -> 


II 


«Н -> (ПУСТОЕ СЛОВО) - ЗАКОНЧИТЬ ИНТЕРПРЕТАЦИИ 

ВХОДНОГО ПОТОКА 

Н -> ПЕРЕКЛЮЧИТЬ ТЕКСТОВЫЙ ИНТЕРПРЕТАТОР 

В РЕЖИМ ИСПОЛНЕНИЙ 
НК -> /КОМПИЛЯЦИЙ/ СКОМПИЛИРОВАТЬ СРА 

->СРА /ИСПОЛНЕНИЕ/ СЛЕДУЮЩЕГО СЛОВА КАК 

ЧИСЛОВОМ ЛИТЕРАЛ 
СКОМПИЛИРОВАТЬ СЛЕДУЮЩЕЕ СЛОВО 
НЕЗАВИСИМО ОТ ЕГО ПРИЗНАКА "ІММЕОІАТЕ" 
НАПЕЧАТАТЬ N НА ТЕРМИНАЛЕ И ДАТЬ ПРОБЕЛ 

НАПЕЧАТАТЬ СЛЕДУЮЩИЕ ЛИТЕРЫ ДО 
ЗАКРЫВАЮЩЕЙ СКОБКИ ИСКЛЮЧИТЕЛЬНО 
ПРИ ИСПОЛНЕНИИ НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ 
СЛЕДУЮЩИЕ ЛИТЕРЫ ДО КАВЫЧКИ ИСКЛЮЧИТЕЛЬНО 


Н 


м-> 

-> 


НК -> 


.к 

. ЦОС 

< 

о 

<« 

< МАЯК 
<РЕЗОШЕ 

( 

(."> 

(+ЮОР) 


♦ N1,+М2-> 


* РРА+2-> 

N1,N2->Р 

♦ ИІ »И2->Р 
-> 


К 

к 

Н 

*к 

§ 


- >А 
А-> 
-> 

-> 

ы-> 


(|СООЕ) #К -> 


(ІЗСК) 
(А м ) 

( 00 ) 

(ЕХРЕСТ) 


§ 

» 


(РI N0) 


СР0Й6ЕТ) 

(ЮОР) 

(ЦОС) 


+ 

♦! 

♦вир 

+ЮОР 

! С5Р 
1 

§ 

#/ 

*/моо 


|в 

— > 

-РІЫ0 


НАПЕЧАТАТЬ N1 НА ТЕРМИНАЛЕ 
В ПОЛЕ ДЛИНЫ +N2 СПРАВА 
НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ ИМЯ 
СЛОВАРНОЙ СТАТЬИ ДЛЯ СПИСКА СЛОВ 
Р НЕ НУЛЬ, ЕСЛИ N1 МЕНЬШЕ N2 
Р НЕ НУЛЬ, ЕСЛИ НІ НЕ РАВНО И2 
НАЧАТЬ ФОРМАТНОЕ ПРЕОБРАЗОВАНИЕ 
ОТМЕТИТЬ ТЕКУЩИЙ АДРЕС ДЛЯ ССЫЛКИ НАЗАД 
РАЗРЕШИТЬ ССЫЛКУ НАЗАД В АДРЕС А 
КОММЕНТАРИИ - ПРОПУСТИТЬ СЛЕДУЮЩИЙ ТЕКСТ 

ДО ЗАКРЫВАЮЩЕЙ круглой СКОБКИ 
ПРОЦЕДУРА, КОМПИЛИРУЕМАЯ В 
ТЕСТ НА ЗАВЕРШЕНИЕ ЦИКЛА "00 +ЮОР н 

С ШАГОМ N 

ЗАПИСАТЬ В ПОЛЕ КОДА ПОСЛЕДНЕЙ СТАТЬИ 
СЛЕДУЮЩИЙ АДРЕС И ЗАКОНЧИТЬ ОПРЕДЕЛЕНИЕ 
Ы->А,Т ПЕРЕВЕСТИ НОМЕР ЭКРАНА N В ТЕКСТ 
Р-> ПРОЦЕДУРА, КОМПИЛИРУЕМАЯ В "АВОКТ"" 

«К И1,И2-> ВХОД В ЦИКЛ СО СЧЕТЧИКОМ ОТ Н2 ДО Ні 

* А,+М1->А,+Н2 ВВЕСТИ С ТЕРМИНАЛА 

♦N1 ЛИТЕР ПО АРЕСУ А ДО ПЕРЕВОДА СТРОКИ) 
♦N2 - ФАКТИЧЕСКОЕ ЧИСЛО ВВЕДЕННЫХ ЛИТЕР 

* -1,АМ,,,А1,Т->СРА,С,ТР/РР ИСКАТЬ СЛОВО Т 

В СПИСКАХ А1,,,АЫ; ПРИ УСПЕХЕ ДАТЬ СРА 
ЕГО СТАТЬИ И С - БАЙТ ДЛИНЫ С ПРИЗНАКАМИ 
А-> УДАЛИТЬ СЛОВАРНЫЕ СТАТЬИ ПОСЛЕ АДРЕСА А 
-> ТЕСТ НА ЗАВЕРШЕНИЕ ЦИКЛА "00 ЮОР" 

* РРА1+2->РРА2,N/0,N ДАТЬ ЧИСЛО СТАТЕЙ N В 

списке рраі +2 и рра следующего списка 

ИЛИ НУЛЬ, ЕСЛИ ЕГО НЕТ 
И1,И2->ИЗ СУММА ЧИСЕЛ НІ И Н2 

И,А-> УВЕЛИЧИТЬ ЗНАЧЕНИЕ ПО АДРЕСУ А НА И 

А1->А2,Р ПЕРЕИТИ К СЛЕДУЮЩЕМУ БУФЕРУ В ПУЛЕ 
А1,А2,3-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА 

Ы-> /ИСПОЛНЕНИЕ/ "00 ♦ ЮОР" С ШАГОМ N 

И,А-> ЗАСЛАТЬ ЗНАЧЕНИЕ Н ПО АДРЕСУ А 

-> ЗАПОМНИТЬ АДРЕС ВЕРШИНЫ СТЕКА В "СЗР" 
-> ПЕРЕКЛЮЧИТЬ ТЕКСТОВЫЙ ИНТЕРПРЕТАТОР 

В РЕШИМ КОМПИЛЯЦИИ 
N1,N2—>N3 ПРОИЗВЕДЕНИЕ ЧИСЕЛ N1 И N2 

N1 ,N2,N$->N4 ЧАСТНОЕ ОТ ДЕЛЕНИЯ ЫНЫ2 НА N3 
N1,N2,N3->N4,N5 ОСТАТОК N4 И ЧАСТНОЕ N3 

ОТ ДЕЛЕНИЯ ПРОИЗВЕДЕНИЯ ІШЫ2 НА N3 
-> ЗАКОНЧИТЬ ОПРЕДЕЛЕНИЕ ЧЕРЕЗ ДВОЕТОЧИЕ 


« 

§ 


§ 

НК 


НК 

+НЗ 

+ НЭ 

§ 


-> 

НІ,И2->ИЗ 

-> 

- > А, N 


-ТЯАШЫО А, N і ->А, N2 


ЗАКОНЧИТЬ ИНТЕРПРЕТАЦИЮ ЭКРАНА 

ВЫЧЕСТЬ Н2 ИЗ НІ 
ИНТЕРПРЕТИРОВАТЬ СЛЕДУЮЩИЙ ЭКРАН 
ВВЕСТИ СЛОВО И ИСКАТЬ В СЛОВАРЕ; 
РЕЗУЛЬТАТ ТОТ ЖЕ, ЧТО И У "РІЫО" 

ОТСЕЧЬ КОНЕЧНЫЕ ПРОБЕЛЫ 


40 
22 

41 


41 

38 

28 

28 

38 

43 

19 

19 

37 

19 

19 

28 

28 

5 

31 

46 

29 

24 

6 



45 

3 

43 


17 

17 
25 
47 

11 

29 

22 

18 
18 
18 

32 

41 

17 

41 

35 

41 


183 



0ОЕ8> 

НК 

-> 

ВОЕВ» 

И 


0Р! 

• 

А-> 

врц 

+п 

->А 

ВРОР 


н-> 

ВІК 


Ц01 

вимр 

♦ 

а, и 

вир 


н-> 

во< 


0-> 

во* 


N0- 

02/ 


01- 

ЕЮЕ 

НК 

А1, 

-> 

ЕМІТ 


С-> 

ЕМРТѴ-ВиРРЕРЗ ♦ 

ЕЫСЮ8Е 

« 

А,С 

ЕРА8Е 

+ 

А.11 

ЕРСОНВб 

И 

ЕХЕСЦТЕ 


СРА 

ЕХІТ 

к 

-> 

ЕХШ 

И 


ЕХРЕСТ 


А,+ 

РЕЙСЕ 

«П 

->А 

рш. 


а, и 

РІНВ 


т-> 

РІРВТ 

« 

->А 

РІР8Т» 

м 


ги 

А 


РЮЗН 


-> 

РОРѲЕТ 


-> ! 

РОРТН 


-> 

РОРТН-бЗ 


-> 

РОРТН» 

А 


ѳото 

М 


н. 

♦ 

11- > 

НЕРЕ 


->А 

НЕХ 

♦ 

-> 

НЮ 

«Л 

->А 

ною 


С-> 

I 

к 

->Ы 

г 

+к 

->Н 

10. 

» 

ИРА- 

ІР 

НК 

">А| 

Р-> 

ІММЕОІАТЕ 

-> 

імоех 

♦ 

N1,1 

ШЕРРРЕТ 

♦ 

-> 

ІРІІВН 

м 

ПІ 


НК -> НАЧАЛО "ИСПОЛНЕНИЯ" В ОПРЕДЕЛЯЮЩЕЙ СЛОВЕ 
ПОАПРОГРАНИА - НАЧАЛО РАСШИРЕНИЯ Н 00Е8>" 
- УСТАНОВИТЬ ВЕРШИНУ СЛОВАРЯ НА АДРЕС А 
1 ПЕРЕИЕННАЯ - ПОЗИЦИЯ ПОСЛЕДНЕЙ ТОЧКИ 
В ПОСЛЕДНЕМ ВВЕДЕННОМ ЧИСЛЕ ОТ КОНЦА 
> УБРАТЬ СО СТЕКА ВЕРХНЕЕ ЗНАЧЕНИЕ 

,Ш->Р Р "ИСТИНА", ЕСЛИ ІІОІ МЕНЬШЕ 1102 

1- > РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ Іі БАЙТОВ 

ОТ АДРЕСА А 

>М ПРОДУБЛИРОВАТЬ ВЕРХНЕЕ ЗНАЧЕНИЕ 

Р Р "ИСТИНА", ЕСЛИ О МЕНЬШЕ НУЛЯ 

>>Р Р "ИСТИНА", ЕСЛИ ИО НУЛЬ 

>02 РАЗДЕЛИТЬ НА ДВА 

2- >А2,2 /КОМПИЛЯЦИЯ/ НАЧАЛО 2-Ой ВЕТВИ 

/ИСПОЛНЕНИЕ/ ВЕТВЛЕНИЯ "1Р" 

ВЫВЕСТИ НА ТЕРМИНАЛ ЛИТЕРУ С КОДОМ С 
-> ОЧИСТИТЬ БУФЕРНЫЙ ПУЛ 

->А,N1,N2,N3 ВВОД СЛОВА 

-> ЗАСЛАТЬ НУЛИ В Іі БАЙТОВ ПО АДРЕСУ А 
СИГНАЛИЗАЦИЯ О НЕПРАВИЛЬНОМ ЗНАЧЕНИИ 
-> ИСПОЛНИТЬ СЛОВО ПО СРА ЕГО СТАТЬИ 
ЗАКОНЧИТЬ ИСПОЛНЕНИЕ ТЕКУЧЕГО ОПРЕДЕЛЕНИЯ 
ТОЧКА "ЕХІТ" АДРЕСНОГО ИНТЕРПРЕТАТОРА 

ЗНАЧЕНИИ В СТЕКЕ 
М-> ВВЕСТИ С ТЕРМИНАЛА +Ы ЛИТЕР ПО 

АДРЕСУ А) В ПЕРЕМЕННУЮ "ВРАН" ЗАСЛАТЬ 
ФАКТИЧЕСКОЕ ЧИСЛО ВВЕДЕННЫХ ЛИТЕР} 
ЛИТЕРЫ НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ 
ПЕРЕМЕННАЯ - ГРАНИЦА ЗАШИТЫ ОТ "Р0Р8ЕТ" 
,С-> ЗАСЛАТЬ С В У БАЙТОВ ПО АДРЕСУ А 
А, N ИСКАТЬ СЛОВО Т В ТЕКУЩЕМ КОНТЕКСТЕ 
ЕСЛИ N«0, ТО А*Т И СЛОВО НЕ НАЙДЕНО} 
ИНАЧЕ А*СРА НАЙДЕННОЙ СТАТЬИ, N-1 ДЛЯ 
СЛОВ " ІММЕОІ АТЕ" И N«-1 ДЛЯ ОСТАЛЬНЫХ 
КОНСТАНТА - АДРЕС НАЧАЛА БУФЕРНОГО ПУЛА 

ЗНАЧЕНИЕ КОНСТАНТЫ "РІР8Т" 
ПОЛЕ СВЯЗИ ДЛЯ СПИСКОВ В ПОЛЕ ПАРАМЕТРОВ 

СЛОВАРНОЙ СТАТЬИ СЛОВА "РОРТН" 
ЗАПИСАТЬ БЛОКИ НА ДИСК И ОЧИСИТИТЬ ПУЛ 
УДАЛИТЬ СЛОВАРНУЮ СТАТЬИ СЛЕДУЮЩЕГО СЛОВА 
И ВСЕХ СЛОВ, ОПРЕДЕЛЕННЫХ ПОСЛЕ НЕГО 
УСТАНОВИТЬ "СОЫТЕХТ" НА НАЧАЛЬНЫЙ СПИСОК 
СТАНДАРТНЫЙ КОНТЕКСТ ФОРТ-СИСТЕМЫ 
РГА+2 ДЛЯ СЛОВАРНОЙ СТАТЬИ "РОРТН 11 
ПОДПРОГРАММА ПЕРЕХОДА ПО ССЫЛКЕ 
НАПЕЧАТАТЬ Іі НА ТЕРМИНАЛЕ 
В 16-НОИ СИСТЕМЕ И ДАТЬ ПРОБЕЛ 
ДАТЬ АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СЛОВАР.Я 
ПЕРЕЙТИ В ШЕСТНАДЦАТИРИЧНУЮ СИСТЕМУ 
ПЕРЕМЕННАЯ - ПОЗИЦИЯ ПОСЛЕДНЕЙ ЛИТЕРЫ, 
ПЕРЕНЕСЕННОЙ В БУФЕР "РАО" ПО "НОЮ" 
ПЕРЕНЕСТИ ЛИТЕРУ С НА ВЕРШИНУ БУФЕРА РАО 
ТЕКУЩЕЕ ЗНАЧЕНИЕ И СЧЕТЧИКА ЦИКЛА "00" 
+К ->И КОНЕЧНОЕ ЗНАЧЕНИЕ Ы СЧЕТЧИКА ЦИКЛА "00" 

> НАПЕЧАТАТЬ ИМЯ СЛОВА И ДАТЬ ПРОБЕЛ 
! /КОМПИЛЯЦИЯ/ НАЧАЛО ВЕТВЛЕНИЯ "ІР" 
/ИСПОЛНЕНИЕ/ 

ДАТЬ ПРИЗНАК "ІММЕОІАТЕ" ПОСЛЕДНЕЙ 
СОЗДАННОЙ СЛОВАРНОЙ СТАТЬЕ 
!-> РАСПЕЧАТАТЬ НАЧАЛЬНУЮ СТРОКУ ЭКРАНОВ 

С НОМЕРАМИ ОТ N1 ДО N2 
ИНТЕРПРЕТИРОВАТЬ ВХОДНОЙ ПОТОК 
іПРОГРАММА - ПОМЕСТИТЬ НА СТЕК УКАЗАТЕЛЬ 
ИНТЕРПРЕТАЦИИ И ОБОЙТИ СЛЕДУЮЩУЮ СТРОКУ 
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о к 


КЕѴ 

ОМАНЕ « 
1.АТЕ8Т * 
ІЕАѴЕ К 
ІЕММАЗК М 

ЦЕЫБ1М5К И 

1ЕЫБ2М5К И 

1.НРЫ12 М 


ими # 
ими# м 

ПИЮ » 

нет + 
ИТ #к 


->М ТЕКУЩЕЕ ЗНАЧЕНИЕ И СЧЕТЧИКА ВТОРОГО 

0Б"ЕМЛЮЩЕГ0 ЦИКЛА "00 й 
->С ВВЕСТИ ЛИТЕРУ С ТЕРМИНАЛА 

І.РА->ЮРА ПЕРЕЙТИ ОТ ПОЛЯ СВЯЗИ К ПОЛИ ИМЕНИ 
->ЫРА ДАТЬ ИРА ПОСЛЕДНЕЙ СОЗДАННОЙ СТАТЬИ 
-> ЗАКОНЧИТЬ ИСПОЛНЕНИЕ ЦИКЛА "00 й 

ПОЛНОЕ СЛОВО - МАСКА ДЛЯ УДАЛЕНИЯ 
БИТА и ІММЕОІАТЕ" ИЗ БАЙТА ДЛИНЫ 
ПОЛНОЕ СЛОВО - МАСКА ДЛЯ УДАЛЕНИЯ 
БИТОВ "ІММЕОІАТЕ" И "8МІІ06Е" ИЗ БАЙТА ДЛИНЫ 

ПОЛНОЕ СЛОВО - МАСКА ДЛЯ ВЫСЕЧЕНИЯ 
ЧИСТОЙ ДЛИНЫ ИЗ БАЙТА ДЛИНЫ С ПРИЗНАКАМИ 
ПОДПРОГРАММА ЗАГРУЗКИ ДВУХ ВЕРХНИХ ЗНАЧЕНИЙ 
НА СТЕКЕ В РЕГИСТРЫ РИ2 (ВЕРХНЕЕ) И РМ1 
->А КОНСТАНТА - АДРЕС КОНЦА БУФЕРНОГО ПУЛА 

ЗНАЧЕНИЕ КОНСТАНТЫ "ИМІТ" 
І.РА“>СРА ПЕРЕЙТИ ОТ ПОЛЯ СВЯЗИ К ПОЛЮ КОДА 
Ы-> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ ЭКРАН N 

->И ПОМЕСТИТЬ НА СТЕК СЛЕДУЮЩИЙ КОД 


ИТ" «К ->Т ДАТЬ АДРЕС СКОМПИЛИРОВАННОЙ СТРОКИ и 

ПРОДОЛЖИТЬ ИНТЕРПРЕТАЦИЮ, ОБОЙДЯ ЕЕ 
ИТЕРА1 Н Ы-> /КОМПИЛЯЦИЯ/ СКОМПИЛИРОВАТЬ И КАК 

~>Ы /ИСПОЛНЕНИЕ/ ЛИТЕРАЛ 

ЮАО +Ы-> ИНТЕРПРЕТИРОВАТЬ ЭКРАН С НОМЕРОМ +Ы 

ЮОР НК А1,А2,3-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА "00 ЮОР" 

-> /ИСПОЛНЕНИЕ/ 

1РЫ1 М ПОДПРОГРАММА ЗАГРУЗКИ ДВОЙНОГО ЗНАЧЕНИЯ НА 

ВЕРШИНЕ СТЕКА В РЕГИСТР РЫ1 
1.РМ12 М ПОДПРОГРАММА ЗАГРУЗКИ ДВУХ ВЕРХНИХ ДВОЙНЫХ 
ЗНАЧЕНИЙ НА СТЕКЕ В РЕГИСТРЫ РМ2 (ВЕРХНЕЕ) И РЫ1 
М» * N1,N2->0 ПРОИЗВЕДЕНИЕ ДВОЙНОЙ ДЛИНЫ N1 И N2 

М/ * 0,Ы1->Ы2,N3 ОСТАТОК N2 И ЧАСТНОЕ N3 ОТ 

ДЕЛЕНИЯ ДВОЙНОГО О НА ОДИНАРНОЕ N1 

М/МОО « 1)01,1)2->1)3,1)04 ОСТАТОК 1)3 И ДВОЙНОЕ 

ЧАСТНОЕ 1)04 ОТ ДЕЛЕНИЯ 1)01 НА 1)2 
МАХ N1 9 N2— >N3 БОЛЬШЕЕ ИЗ ЧИСЕЛ N1 И N2 

МІ N N1,N2“>N3 МЕНЬШЕЕ ИЗ ЧИСЕЛ N1 И N2 

ИОО N1,М2->МЗ ОСТАТОК ОТ ДЕЛЕНИЯ N1 НА N2 

МВБ * ->А КОНСТАНТА - АДРЕС НАЧАЛА БУФЕРА М8В 

МЗВ* М ЗНАЧЕНИЕ КОНСТАНТЫ "МЗВ" 

ЮІІНІК * ЫРА-ИРА ПЕРЕЙТИ ОТ ПОЛЯ ИМЕНИ К ПОЛЮ СВЯЗИ 
ЮАНЕ) « ЫРА->СРА ПЕРЕЙТИ ОТ ПОЛЯ ИМЕНИ К ПОЛЮ КОДА 

ЫЕЗАТЕ Н1->Н2 РЕЗУЛЬТАТ ВЫЧИТАНИЯ И1 ИЗ НУЛЯ 

ЫЕХТ М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР 

ЫЕХТ1 М ПРОДОЛЖЕНИЕ АДРЕСНОЙ ИНТЕРПРЕТАЦИИ ОТ 

ФОРТ-АДРЕСА В РЕГИСТРЕ 14 
ЫОТ ЫІ ->Ы2 ПОРАЗРЯДНОЕ ИНВЕРТИРОВАНИЕ 

ЫІІМВЕР ♦ Т->ЫО ПРЕОБРАЗОВАТЬ СТРОКУ Т В ЧИСЛО ИО 

ОРРЗЕТ +П ->А ПЕРЕМЕННАЯ - ДОБАВКА К НОМЕРУ БЛОКА 

ОР ЫІ ,И2->ИЗ ПОРАЗРЯДНОЕ ЛОГИЧЕСКОЕ "ИЛИ" 

ОѴЕР ЫІ ,И2->И1 ,И2,Ы1 ПРОДУБЛИРОВАТЬ ВТОРОЕ СВЕРХУ 

РАО ->А ДАТЬ АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ БУФЕРА РАО 

РІСК ИЮ,...,»0,+М->НЫ,,.,,ЫО,ЫЫ ПРОДУБЛИРОВАТЬ 

Ш-Е СВЕРХУ ЗНАЧЕНИЕ 
РОР М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 

ВЕРХНЕГО ЗНАЧЕНИЯ С ВЕРШИНЫ СТЕКА 
РОРРІШ М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 

ВЕРХНЕГО И ЗАМЕНОЙ ПРЕДЫДУЩЕГО НА ЗНАЧЕНИЕ 

ИЗ РЕГИСТРА РЫ1 

РВЕV *С ->А ПЕРЕМЕННАЯ - ТЕКУЩИЙ БЛОЧНЫЙ БУФЕР 

РІІ8НРИ1 М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ПОМЕЩЕНИЕМ 

ЗНАЧЕНИЯ ИЗ РЕГИСТРА РЫ1 НА ВЕРШИНУ СТЕКА 
Р1)5Н2РЫ1 М ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ЗАМЕНОЙ 

ВЕРХНЕГО НА ДВОЙНОЕ ЗНАЧЕНИЕ ИЗ РЕГИСТРА РИ1 
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Р1ЛВИ1- И ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ЗАМЕНОЙ 3 

ВЕРХНЕГО ЗНАЧЕНИЯ НА ЗНАЧЕНИЕ ИЗ ВМІ 
81ІЕКУ 4 -> ВВЕСТИ С ТЕРМИНАЛА ЛИТЕРЫ В БУФЕР "ТІВ") 40 

ЧИСЛО ВВЕДЕННЫХ ЛИТЕР ЗАСЛАТЬ В "*ПВ" 

ВШ СБРОСИТЬ СТЕК ВОЗВРАТОВ, ПЕРЕЙТИ В РЕЖИМ 28 

ИСПОЛНЕНИЯ И ПРОДОЛЖИТЬ ИНТЕРПРЕТАЦИИ 
В. * -> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ СТЕК ВОЗВРАТОВ 42 

В> К ->М ПЕРЕНЕСТИ ЗНАЧЕНИЕ СО СТЕКА ВОЗВРАТОВ 9 

В« К ->И СКОПИРОВАТЬ ВЕРШИНУ СТЕКА ВОЗВРАТОВ 9 

ВВІ.К * А,+Ч-> ПРОЧЕСТЬ ЭКРАН 4Ы ПО АДРЕСУ А 6 

ВОВОР «К -> СНЯТЬ ЗНАЧЕНИЕ СО СТЕКА ВОЗВРАТОВ 9 

ВЕС0В8Е +НК -> СКОМПИЛИРОВАТЬ ОБРАЩЕНИЕ К КОМПИЛИРУЕМОМУ 31 

В ДАННЫЙ МОМЕНТ ОПРЕДЕЛЕНИЮ 

ВЕМЕМВЕВ + -> ОПРЕДЕЛИТЬ СЛОВО, ИСПОЛНЕНИЕ КОТОРОГО 45 

УНИЧТОЖАЕТ ВСЕ ПОСЛЕДУЮЩИЕ ОПРЕДЕЛЕНИЯ 
ВЕРЕАТ НК А1,1,А2,2-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА 47 

-> /ИСПОЛНЕНИЕ/ "ВЕБIN ИННЕ ВЕРЕАТ" 

вон имн-і,...,ио,+Н‘>і<ж-і,...мо ѵ мн циклически 12 

ПЕРЕСТАВИТЬ N ВЕРХНИХ ЗНАЧЕНИЙ 

ВОТ ЫІ,Ы2,ИЗ->Ы2,ЫЗ,И1 ПЕРЕСТАВИТЬ ТРИ 9 

ВЕРХНИХ ЗНАЧЕНИЯ ПО ЧАСОВОЙ СТРЕЛКЕ 
ВР! # А~> УСТАНОВИТЬ УКАЗАТЕЛЬ ВЕРШИНЫ СТЕКА 20 

ВОЗВРАТОВ НА А 

ВР« * ->А АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СТЕКА ВОЗВРАТОВ 20 

ВО «С ->А ПЕРЕМЕННАЯ - АДРЕС ДНА СТЕКА ВОЗВРАТОВ 7 

8. * -> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ СТЕК ДАННЫХ 42 

8)0 * N->0 РАСШИРИТЬ N ДО ЧИСЛА ДВОЙНОЙ ДЛИНЫ 0 14 

ЗАѴЕ-ВирРЕВЗ -> ЗАПИСАТЬ НА ДИСК ВСЕ ИСПРАВЛЕННЫЕ БЛОКИ 26 
8СВ +П ->А ПЕРЕМЕННАЯ - НОМЕР ЭКРАНА В "ИЗТ" В 

31 ВЫ Ы-> ДОБАВИТЬ В ФОРМАТНУЮ СТРОКУ ЗНАК 37 

МИНУС, ЕСЛИ ЧИСЛО N ОТРИЦАТЕЛЬНО 
8МІІ08Е * -> УСТАНОВИТЬ В ЕДИНИЦУ ФЛАГ "ЗМЦОбЕ" Зі 

В ПОСЛЕДНЕЙ СОЗДАННОЙ СТАТЬЕ 

8ЫАР8ТК * А1,А2,АЗ-> РАСПЕЧАТКА СТЕКА ОТ А1 ДО А2 42 

С ТЕКСТОМ А3| ВОЗВРАТ "ЧЕРЕЗ ОДИН" 

8Р! * А-> УСТАНОВИТЬ УКАЗАТЕЛЬ ВЕРШИНЫ СТЕКА НА А 20 

8РЙ 4 ->А АДРЕС ТЕКУЩЕЙ ВЕРШИНЫ СТЕКА ДАННЫХ 20 

8РАСЕ -> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ ПРОБЕЛ 23 

ВРАСЕ8 +Ы-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ 4Щ ПРОБЕЛОВ 23 
8РАЫ Л ->А ПЕРЕМЕННАЯ ДЛЯ РЕЗУЛЬТАТА "ЕХРЕСТ" В 

8ТАТЕ П ->А ПЕРЕМЕННАЯ С СОСТОЯНИЕМ ТЕКСТОВОГО В 

ИНТЕРПРЕТАТОРА: "ИСТИНА" - КОМПИЛЯЦИЯ 
8ИАР Ы1,И2->Ы2,Ы1 ОБМЕНЯТЬ МЕСТАМИ 2 ВЕРХНИХ 9 

80 +П ->А ПЕРЕМЕННАЯ - АДРЕС ДНА СТЕКА ДАННЫХ 7 

ТЕМР М РАБОЧАЯ ОБЛАСТЬ ИЗ ДВУХ ДВОЙНЫХ СЛОВ 2 

ТНЕЫ НК А,2-> /КОМПИЛЯЦИЯ/ КОНЕЦ ВЕТВЛЕНИЯ "ІР" 47 

-> /ИСПОЛНЕНИЕ/ 

ТНВІІ 4 441,+N2-) ИНТЕРПРЕТИРОВАТЬ ЭКРАНЫ С НОМЕРАМИ 41 

ОТ +N1 ДО +Н2 ВКЛЮЧИТЕЛЬНО 

ТІВ ->А АДРЕС ВХОДНОГО ТЕКСТОВОГО БУФЕРА 2 

ДЛЯ ВВОДА С ТЕРМИНАЛА 

ТІВ* М ФОРТ-АДРЕС НАЧАЛА БУФЕРА ТІВ 2 

ТУРЕ А,4М-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ 4Ю ЛИТЕР 6 

ОТ АДРЕСА А 

и. и-> НАПЕЧАТАТЬ ц НА ТЕРМИНАЛЕ КАК 38 

ЧИСЛО БЕЗ ЗНАКА 

ІІ.Я 4 I), 4Щ-> НАПЕЧАТАТЬ НА ТЕРМИНАЛЕ ЧИСЛО Ц ЗВ 

В ПОЛЕ ДЛИНЫ 4Ы СПРАВА 

Ц< Ш,Ц2->Р Р ИСТИНА, ЕСЛИ ІЛ МЕНЬШЕ Ы2 16 

им* іл,іі 2 ->ио произведение ио чисел иі и цг іб 

іж/моо ио,иі->иг,из остаток цг и частное из от и 

ДЕЛЕНИЯ цо НА Ш 

иызмиозЕ * -> установить в нуль флаг "змцоѳе* зі 

В ПОСЛЕДНЕЙ СОЗДАННОЙ СТАТЬЕ 
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ОІШІ НК А,1-> /КОМПИЛЯЦИЯ/ КОНЕЦ ЦИКЛА И ВЕВІЫ имти м 

Р-> /ИСПОЛНЕНИЕ/ 

>> ОТМЕТИТЬ ТЕКУЩИЙ БЛОК КАК ИЗМЕНЕННЫЙ 
->А ПЕРЕМЕННАЯ - СЛЕДУЮЩИЙ БЛОЧНЫЙ БУФЕР 
-> ОПРЕДЕЛИТЬ СЛЕДУЮЩЕЕ.СЛОВО КАК 

ПЕРЕМЕННУЮ С НАЧАЛЬНЫМ ЗНАЧЕНИЕМ НУЛЬ 
■>А ПЕРЕМЕННАЯ - АДРЕС ПОЛЯ СВЯЗИ ПОСЛЕДНЕГО 
СОЗДАННОГО ПО "ѴОСАВШ.АЙѴ" СПИСКА СЛОВ 
-> ОПРЕДЕЛИТЬ СЛЕДУЮЩЕЕ СЛОВО КАК 

СПИСОК НАД ТЕКУЩИМ ЗНАЧЕНИЕМ "СІШШТ* 

А НАЧАЛО ИСПОЛНИТЕЛЬНОЙ ЧАСТИ "ѴОСАВІП.АЯГ 
-> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ ТЕКУЩИЙ 

ПОРЯДОК ПОИСКА СЛОВ В СЛОВАРЕ 
А'+И-) ЗАПИСАТЬ ЭКРАН +И ИЗ АДРЕСА А 

1->А,2 /КОМПИЛЯЦИЯ/ ВЕТВЛЕНИЕ "ИННЕ" В 
Р-> /ИСПОЛНЕНИЕ/ ЦИКЛЕ "ВЕѲІЫ ИННЕ РЕРЕАТ" 
->Ы КОНСТАНТА - МАКСИМАЛЬНАЯ ДЛИНА ИМЕНИ 
С->Т ВВЕСТИ СЛОВО ДО СТОП-ЛИТЕРЫ С| 

ДАТЬ ЕГО АДРЕС КАК СТРОКИ СО СЧЕТЧИКОМ 
-> РАСПЕЧАТАТЬ НА ТЕРМИНАЛЕ ИМЕНА СЛОВ 

ИЗ СПИСКА "СОНТЕХТ" 
ПОРАЗРЯДНОЕ "ИСКЛЮЧАЮЩЕЕ ИЛИ" 
КОНСТАНТА НУЛЬ (ЗНАЧЕНИЕ "ЛОІЬ") 


ІіРОАТЕ 

изЕ «с 

ѴАРІАВЦЕ 

ѴОС-ІШК #П 

ѴОСАВІД.АРѴ 

ѴОСАВІЛАРѴ# 
Ѵ0С5 » 

НВІ.К # 

ИННЕ НК 

НІОТН « 

МОРО 

МОРОЗ 4 

ХОР 

о # 

0 < 

0 <> # 

О! * 

0 = 

14 

14! 4 

1- 
24 

2 ! 

2» 4 

2 - 
2 / 

2Й 

2С0Ы5ТАЫТ 

20Р0Р 

201ІР 

гит »к 

21.ІТЕРАІ »Н 
20ѴЕР 

2Р0Р М 
2Р0РРУТ1 М 


М1,М2->ИЗ 
->0 
Ы->Р 
Н->Р 
А- > 

И->Р 
М1->И2 
А-> 

М1->М2 
М1->И2 
МО,А-> 
М1->М2 
М1->М2 
М1->И2 
А->МО 
М0-> 


2РІІ8НРН1 М 
2Р11ТРМІ М 


2Р0Т 


25 МАР 


2ѴАРІАВІЕ 

ѵОРТ-СИСТЕМА 


Р "ИСТИНА", ЕСЛИ N ОТРИЦАТЕЛЬНО 
Р "ИСТИНА", ЕСЛИ И НЕ НУЛЬ 
ЗАСЛАТЬ НУЛЬ ПО АДРЕСУ А 
Р "ИСТИНА", ЕСЛИ М РАВНО НУЛЮ 

УВЕЛИЧИТЬ М1 НА 1 
УВЕЛИЧИТЬ НА 1 ЗНАЧЕНИЕ ПО АДРЕСУ А 

УМЕНЬШИТЬ Н1 НА 1 
УВЕЛИЧИТЬ И1 НА 2 
ЗАСЛАТЬ ДВОЙНОЕ МО ПО АДРЕСУ А 
АРИФМЕТИЧЕСКИЙ СДВИГ ВЛЕВО НА 1 

УМЕНЬШИТЬ М1 НА 2 
АРИФМЕТИЧЕСКИЙ СДВИГ ВПРАВО НА 1 
ДАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ ПО АДРЕСУ А 
ОПРЕДЕЛИТЬ СЛЕДУЮЩЕЕ СЛОВО КАК 
КОНСТАНТУ СО ЗНАЧЕНИЕМ МО 
М0-> СНЯТЬ ВЕРХНЕЕ ДВОЙНОЕ ЗНАЧЕНИЕ 

МО->МО,МО ПРОДУБЛИРОВАТЬ ДВОЙНОЕ ЗНАЧЕНИЕ 
->М0 ПОМЕСТИТЬ НА СТЕК СЛЕДУЮЩИЕ 2 КОДА 
М0-> /КОМПИЛЯЦИЯ/ СКОМПИЛИРОВАТЬ МО КАК 
->М0 /ИСПОЛНЕНИЕ/ ЛИТЕРАЛ 

М01,М02->М01,М02,М0І ПРОДУБЛИРОВАТЬ ВТОРОЕ 

ДВОЙНОЕ СВЕРХУ 
ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 
ДВОЙНОГО ЗНАЧЕНИЯ С ВЕРШИНЫ СТЕКА 
ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР СО СНЯТИЕМ 
ДВОЙНОГО ВЕРХНЕГО ЗНАЧЕНИЯ СО СТЕКА И 
ЗАМЕНОЙ ПРЕДЫДУЩЕГО ДВОЙНОГО НА 4-БАИТНОЕ 

ЗНАЧЕНИЕ ИЗ РЕГИСТРА РМ1 
ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ПОМЕЩЕНИЕМ 
ДВОЙНОГО ЗНАЧЕНИЯ ИЗ РМ1 НА ВЕРШИНУ СТЕКА 
ВХОД В АДРЕСНЫЙ ИНТЕРПРЕТАТОР С ЗАМЕНОЙ 
ДВОЙНОГО ВЕРХНЕГО ЗНАЧЕНИЯ НА 4-БАИТНОЕ 

ЗНАЧЕНИЕ ИЗ РЕГИСТРА' НМ 1 
М01,МО2,ИОЗ->ИО2,МОЗ,ИО1 ПЕРЕСТАВИТЬ ТРИ 

ВЕРХНИХ ДВОЙНЫХ ПО ЧАСОВОЙ СТРЕЛКЕ 
М01,М02->М02,М01 ОБМЕНЯТЬ МЕСТАМИ ДВА 

ВЕРХНИХ ДВОЙНЫХ ЗНАЧЕНИЯ 
-> ОПРЕДЕЛИТЬ СЛЕДУЮЩЕЕ СЛОВО КАК ПЕРЕМЕННУЮ 
ДВОЙНОЙ ДЛИНЫ С НАЧАЛЬНЫМ ЗНАЧЕНИЕМ НУЛЬ 
* -> ТЕКСТОВЫЙ ИНТЕРПРЕТАТОР ФОРТ-СкГСТЕМЫ 


47 

29 

7 

32 

33 
33 

33 

43 

6 

47 

7 

27 

44 

13 

7 

13 

19 
11 
13 
17 
17 
17 
17 

20 
20 
17 
20 
20 
32 

12 

12 

23 

23 

12 

3 

3 


3 

3 


12 

12 

32 

40 
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Экран номер I 

( 09.09.66 НАЧАЛО МОДЕЛИ ФОРТ-СИСТЕМЫ > 

ОЕСІМАІ. ( КОНСТАНТЫ ПЕРИОДА КОМПИЛЯЦИИ ) 

128 С0Ы8ТАЫТ ЫР1.А6 ( ПРИЗНАК ЧММЕОІАТЕ") 

32 С0Ы8ТАЫТ 18РІ.Ав ( ПРИЗНАК "ЭМЦОвЕ") 

31 С0Ы8ТАЫТ Ы.ЕЫВ ( МАСКА ДЛЯ ВЫСЕЧЕНИЯ ДЛИНЫ) 

Ь8РІ.Ав 256 « 64 + С0Ы8ТАЫТ ІсОМОЙО ( ФИКТИВНОЕ ИМЯ ) 

< НАЧАЛЬНОЕ ЯДРО С АДРЕСАЦИЕЙ ОТ РЕГИСТРА КРОКТН) 

8ТАКТ-СОВЕ «, КРОКТН Ц8І N6, ( АДРЕСНЫЙ ИНТЕРПРЕТАТОР) 

Мі ЫЕХТ 14 0 <, КІ КРОКТН І.Н, КІ КТЫО АР, 

Мі ЫЕХТ1 14 КМА8К ЫК, 15 0 (, 14 КРОКТН І.Н, 

15 КМА8К ЫК, 15 КРОКТН АК, 14 КТЫО АК, 15 ВК, 


Экран номер 2 

( 09.09.86 СИСТЕМНЫЕ ПЕРЕМЕННЫЕ И КОНСТАНТЫ ) 

С0М8Т М86 Мі МВ6І О Н, ( АДРЕС НАЧАЛА БУФЕРА М86) 

С0М8Т РІК8Т Мі РІК8ТІ ОН, ( АДРЕС НАЧАЛА ПУЛА) 

С0М8Т ИМІТ Мі І.ІИІТІ О Н, ( АДРЕС КОНЦА ПУЛА) 

С0Й8Т Тіа Мі ТІВІ о Н, ( АДРЕС НАЧАЛА БУФЕРА Т1В) 

4 АН 6Ы 

Мі ЬЕЫ6МА8К 255 ІеІРЬАб - 8>В Р, ( БАЙТ ДЛИНЫ БЕЗ ІММЕВІАТЕ) 

Мі 1ЕЫ61М8К 255 МРЫЮ - І.8РІ.А6 - 8>В Р, ( БЕЗ ІММВ И ВМВ6) 

Мі (.ЕЫВ2М8К НЕМВ 8>В Р, ( БАЙТ ДЛИЙЫ С ЧИСТОЙ ДЛИНОЙ) 

8 АІ.І6Ы 

Мі ТЕМР 16 АИОТ ( РАБОЧАЯ ОБЛАСТЬ) 


Экран номер 3 


< 09.09.86 
Мі В0Е8» 

Аі СКЕАТЕІ 
Мі РІІ8НКИІ 
М: РЦТКЫ1 
Мі 2Р0Р 
Мі РОР 
Мі РОРРІШ 

Мі 2РІІ8НКН1 
Мі РЦ8Н2КЫ1 
Мі 2Р0ТКЫ1 

Мі 2Р0РРІЛ1 


ДОПОЛНИТЕЛЬНЫЕ 
КІ КРЦ8Н, 
КЫ1 14 І.К, 
КВТАСК КТЫО 
КЫ1 РОТ, 
К8ТАСК КТЫО 
КВТАСК КТЫО 
К8ТАСК КТЫО 
КЫ1 РОТ, 
К8ТАСК КТЫО 
К8ТАСК КТЫО 
КЫ1 ТЕМР 8Т 
РІК8Т (, 4 
К8ТАСК КТЫО 


ВХОДЫ а АДРЕСНЫЙ ИНТЕРПРЕТАТОР) 

КІ 4 (, 15 ІА, КІ КРОКТН 8К, 

< ПОМЕСТИТЬ РРА СТАТЬИ) 
8К, ( ПОМЕСТИТЬ ЗНАЧЕНИЕ ИЗ КИП 

КНЕХТ ВК, ( ЗАМЕНИТЬ ВЕРХНЕЕ) 

АК, ( СНЯТЬ ДЭА ВЕРХНИХ) 

АК, КЫЕХТ ВК, ( СНЯТЬ ВЕРХНЕЕ) 
АК, ( СНЯТЬ ВЕРХНЕЕ И ЗАМЕНИТЬ) 
КЫЕХТ ВК, < ЗНАЧЕНИЕМ ИЗ КЫП 

8К, ( ПОЛОЖИТЬ ДВОЙНОЕ НА СТЕК) 

8К, ( ЗАМЕНИТЬ ВЕРХНЕЕ НА ДВОЙНОЕ) 
, ( ЗАМЕНИТЬ ДВОЙНОЕ ВЕРХНЕЕ) 

), ТЕМР МУС, КЫЕХТ ВК, 

АК, К8ТАСК КТЫО АК, 2РІПКЫ1 В, 


Экран номер 4 

( 09.09.86 ВСПОМОГАТЕЛЬНЫЕ ПОДПРОГРАММЫ! ВОЗВРАТ В РЕГ.14) 

Мі І.НКЫ12 КЫ1 8ЕС0ЫВ І.Н, КЫ2 РШ.І., 14 ЭК, 

М: І.КЫ1 ТЕМР (, 4 ), РІК8Т МУС, КЫ1 ТЕМР I, 14 ВК, 

Мі І.КМ12 ТЕМР (, 8 ), РІК8Т МУС, КИ1 ТЕМР 4 +(, I, 

КЫ2 ТЕМР I, 14 ВК, 

М: 60Т0 14 0 {, 0 14 І.Н, ЫЕХТ1 В, 

Мі ІРЦВН КІ РЦВН, КИ2 КИ2 ВК, КИ2 0 (, КІ КРОКТН ІС, 

КІ 2 (, КІ КЫ2 ІА, 14 ВК, 

СООЕ ЕХІТ 

Мі ЕХІТ# КІ КРОР, КІ КМА8К ЫК, КЫЕХТ ВК, ЕЫО-СООЕ 
Мі ЕКСОЫ08 14 БОТО ВАІ, 3 АВОКТв С 
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Экрін номер 3 


I 09.09.86 ВПАЫСН 7ВЙАЫСН (І.00Р/ (+Ю0Р/ ) 

СООЕ ВВАЫСН Ні ВААЫСНІ 

РІ 0 (, ЯІ ЯРОЯТН І.н 9 РІ РМАВК ЫЯ, РМЕХТ ВР, 
СОВЕ 7ВЯАЫСН ЯИ1 РОР, РМ1 ЯИ1 ІТР, ВЯАМСНФ В2, 

РІ ЯТЫО АР, РМЕХТ ВР, 

СООЕ (ЮОР) ММ 1 ІА, 1 »Р В, 
сове <+юор) яиі РОР, 

1 -Н О РРІРВТ Ш, О РВЕСОМВ ВН, О РМАВК ИР, 

О ЯМ1 АР, ММ РРІРВТ АН, РИ1 РРІРВТ 8ТН, 

О РМАВК СІ.В, ВЯАНСНІ ВИН, РРЕТ 6 (, О РРЕТ ІА, 

РІ ЯТЫО АР, РМЕХТ ВР, ЕЫО-СООЕ 


Экран номер 6 

< 09.09. В6 КЕѴ СР ЕМІТ ТУРЕ (ЕХРЕСТ/ РВІ.К МВІ.К ) 

< СЛЕДУЮЩИЕ ОПРЕДЕЛЕНИЯ ДАЮТ ТОЛЬКО ИМЕНА ПРОЦЕДУР) 

СООЕ КЕѴ ( ->С ВВЕСТИ ЛИТЕРУ С ТЕРМИНАЛА) ЕЫВ-СООЕ 

СООЕ СР < -> ВЫВЕСТИ ПЕРЕВОД СТРОКИ ) ЕЫО-СООЕ 

СООЕ ЕМІТ ( С-> ВЫВЕСТИ ЛИТЕРУ С КОДОМ С НА ТЕРМИНАЛ) 

ЕЫО-СООЕ 

СООЕ ТУРЕ ( А,Ы-> ВЫВЕСТИ НА ТЕРМИНАЛ N ЛИТЕР ПО АДРЕСУ А) 

ЕЫО-СООЕ 

СООЕ (ЕХРЕСТ) ( А,Ы1->А,Ы2 ВВЕСТИ С ТЕРМИНАЛА НЕ БОЛЕЕ 

Ы1 ЛИТЕР /ДО ПЕРЕВОДА СТРОКИ/ В БУФЕР ПО АДРЕСУ А) 

Ы2 - ФАКТИЧЕСКОЕ ЧИСЛО ВВЕДЕННЫХ ЛИТЕР) ЕЫО-СООЕ 
СООЕ ЯВЬК ( А,Ы-> ПРОЧИТАТЬ ЭКРАН N В БУФЕР А) ЕЫО-СООЕ 
СООЕ ИВІК ( А,М-> ЗАПИСАТЬ ЭКРАН Ы ИВ БУФЕРА А ) ЕЫО-СООЕ 


Экран номер 7 

( 09.09.86 КОНСТАНТЫ И СИСТЕМНЫЕ ПЕРЕМЕННЫЕ ) 

64 С0Н8ТАНТ ВІ. ( КОД ПРОБЕЛА) 

1024 С0Ы8ТАЫТ В/ВІІР ( ДЛИНА БУФЕРА ДЛЯ ЭКРАНА) 

ЫЕЫ6 С0Ы8ТАЫТ МІОТН ( МАКСИМАЛЬНАЯ ДЛИНА СЛОВА ) 

О СОЫЗТАЫТ 0 ( ЧИСЛО НОЛЬ) 

ѴАЯІАВІ.Е Ш ( СЛЕДУЮЩИЙ БУФЕР В ПУЛЕ) 

ѴАЯІАВІ.Е РЯЕѴ ( ТЕКУЩИЙ БУФЕР В ПУЛЕ) 

ѴАЯІАВІ.Е 80 ( АДРЕС ДНА СТЕКА ДАННЫХ) 

VАРI АВІЕ ВО ( АДРЕС ДНА СТЕКА ВОЗВРАТОВ) 

ѴАРІАВІ.Е РЕЙСЕ < ГРАНИЦА ЗАЩИТЫ ОТ "РОЯВЕТ") 

ѴАРІАВІ.Е СОЫТЕХТ ( ТЕКУЩИМ СПИСОК - НАЧАЛО ПОИСКА) 

ѴАЯІАВІ.Е СЫПРЕЫТ ( ТЕКУЩИЙ СПИСОК - КУДА ДОБАВЛЯЕМ) 


Экран номер 8 

( 09.09.86 СИСТЕМНЫЕ ПЕРЕМЕННЫЕ - ОКОНЧАНИЕ) 

ѴАПІАаи ОРРВЕТ ( ДОБАВКА К НОМЕРУ ЭКРАНА) 

ШІАВІЕ ВА8Е ( ОСНОВАНИЕ СИСТЕМЫ СЧИСЛЕНИЯ) 

ѴАЯІАВІ.Е 8ТАТЕ ( СОСТОЯНИЕ ТЕКСТОВОГО ИНТЕРПРЕТАТОРА) 

ѴАР1АВІ.Е ОРІ. ( ПОЗИЦИЯ ДЕСЯТИЧНОЙ ТОЧКИ В ЧИСЛЕ) 

ѴАЯІАВІ.Е СВР ( ДЛЯ КОНТРОЛЬНОГО ХРАНЕНИЯ УКАЗАТЕЛЯ) 

ѴАЯІАВІ.Е № ( УКАЗАТЕЛЬ ВЕРШИНЫ БУФЕРА и РАО н ) 

ѴАЯІАВІ.Е ВІ.К ( НОМЕР ВХОДНОГО ЭКРАНА ИЛИ НОЛЬ) 

ШІАВІ.Е >1Ы ( ПОЗИЦИЯ ОЧЕРЕДНОЙ ЛИТЕРЫ НА ВХОДЕ) 

ѴАЯІАВІЕ ВРАЫ ( ЧИСЛО ЛИТЕР, ВВЕДЕННЫХ ПО "ЕХРЕСТ") 

ѴАРІАВЬЕ #ТІВ ( ЧИСЛО ЛИТЕР, ВВЕДЕННЫХ В БУФЕР “ТІВ"1 
ѴАЯ1АВІ.Е ВСЯ ( НОМЕР ЭКРАНА, РАСПЕЧАТАННОГО В ЧІВТ") 

* 
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Экран номер 9 


( 31.03.66 00Р ?00Р ОВОР ВЫАР ОѴЕВ >в в> ві ВОВОР ВОТ ) 

СООЕ ООР < И->И,И> ВЫ 1 РОИ, РІІ6НВИ1 В, БИО-СООБ 
і ?00Р < N->N,N1 0->0 ) ОІІР ІР ОІІР ТНЕЫ | 

СООЕ ОВОР < И-> ) В6ТАСК ВТИО АВ, ВИБХТ ВЯ, ЕИО-СООЕ 
СООЕ 8ИАР < И1,И2->И2,ИП 

14 1.НВИ12 ВАІ ѵ РЫ2 ВЕСОМО 8ТН, РІІТЯИ1 В, ЕИО-СООЕ 
СООЕ ОѴЕВ < ИІ ,Ы2->Ы1,Н2,И1) ЯМ1 ВЕСОМО ІН, РОВНЯМ1 В, ЕМО-СООЕ 
СООЕ >В ( И-> ) ВИ1 РОР, РЫ1 ВРІІВН, ЯНЕХТ ВЯ, ЕИО-СООЕ 
СООЕ В> < ->М> РЫ1 ВРОР, РІІ6НР Ы1 В, ЕМ 0 - СООЕ 

СООЕ ВІ ( ->И) РЫ 1 ВРОП, РІІ8НВИ1 В, ЕМО-СООЕ 

СООЕ ВОВОР < -> ) ВВЕТ ВТМО АЯ, РМЕХТ ВЯ, ЕМО-СООЕ 

I ВОТ < N1,N2,N3->N2 ѵ N3»N1 ) >Я 8МАР Я> 5МАР \ 


Экран номер 10 


< 31.03.66 НЕВЕ АПОТ АИВИ АИВНН ОР! ) 

СООЕ «ЕВЕ < ->А ) РН1 ВО 1.В, Р06НРМ1 В, ЕМО-СООЕ 
СООЕ АПОТ ( Н-> ) ВО Р1В8Т АН, РОР В, ЕМО-СООЕ 
СООЕ АИѲИ ( Ш-> ) ВИ1 0 <, ВО ВРОВТН ІА , 

О (, ВИ1 О МѴІ, 1 (, 7 РЫ1 ), 0 (, РЫ1 МѴС, 

РИ1 РОП, РЫ2 ВЫ1 НВ, ВО ВНІ АВ, во о ВСТВ, 
ВО ВИ2 ИВ, РОР В, ЕМО-СООЕ 

і Анвин ( -> ) г аиви і 

СООЕ ОР! < А-> ) ВО РІІП, ВО ВНА8К МВ, РОР В, 

ЕМО-СООЕ 


Экран номер И 

( 31.03.66 ! О! I С! СІ , С, ЕХЕСОТЕ 1 

СООЕ ! ( Ы,А-> ЗАСЛАТЬ N ПО АДРЕСУ А) 14 1.НВН12 ВАІ , 

ВМ2 РМА6К НЯ, ЯЫ1 0 (, РЫ2 ВРОВТН 8ТН, 2Р0Р В, ЕМО-СООЕ 
і 0! ( А-> ) О ВЫ АР ! | 

СООЕ I < А->И РАЗЫМЕНОВАТЬ А) ВЫ2 РОИ, ВМ2 ВНА8К N8, 

ВНІ 0 <, ВН2 ВРОВТН 1.Н, РІЯВИІ В, ЕМО-СООЕ 
СООЕ СІ < А->С) ВН2 РОИ, ВН2 ВИА6К N8, ВНІ ВНІ ВЯ, 

ВНІ 0 (, ВН2 ВРОВТН ІС, РІІТЯЫ1 В, ЕМО-СООЕ 

СООЕ С! ( С,А-> ) 14 1.НВИ12 ВАІ ѵ ВН2 ЯМА5К N8, 

ВНІ 0 (, ВН2 ВРОВТН 8ТС, 2Р0Р В, ЕМО-СООЕ 
I , < И-> ) НЕВЕ 2 АПОТ ! | 

і С, < С-> ) НЕВЕ 1 АПОТ С! | 

СООЕ ЕХЕСОТЕ ( СРА-> ) 14 РОР, МЕХТ1 В, ЕМО-СООЕ 


Экран номер 12 

< 31.03.66 ВОН РІСК 201ІР 20В0Р 28НАР 20ѴЕЯ 2В0Т ) 

сооЕ яйп ( ММ,НМ-1«...,Н0,^М->ММ-1 ѵ ... 9 ЫО,ЫМ) 

ВН2 РУН, ВН2 ВН2 АВ, ЕЯСОМОВ ВМ, ВНІ 8ЕС0М0 (, ВН2 ІН, 
ВЕСIN, О Р1В8Т (, ВН2 ІН , О ВЕСОМО (, ВН2 8ТН, 

ВН2 ВТНО 6В, ?МР инти, Р0РРЦТ1 В, ЕМО-СООЕ 
СООЕ РІСК ( ЫМ,...,ЫО,+М->ЫМ*...,МО,ЫМ) 

ВН2 РШЛ, ВН2 ВН2 АЯ, ЕЯС0М06 ВН, 

ВНІ 2 (, ВН2 В6ТАСК ІН , РІІТВИІ В, ЕМО-СООЕ 
I 201ІР ( ИО->НО,НО) ОѴЕВ ОѴЕВ | 

1 20В0Р ( И0->> ОВОР ОВОР | 

I 26НАР < Н01,Н02->Н02,Н01) 3 ВОН 3 ВОН | 

I 20ѴЕВ < Н01,Н02->Н01,Н02,Н0П 3 РІСК 3 РІСК | 

і 2В0Т < НО 1,Н02,Н03->Н02,Н03,Н011 3 ВОН 3 ВОН \ 

і і 
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Энран ноиар 13 


( 31.03.66 АНН ОА ХОК 
СОВЕАНВ ( N1,М2->МЗ) 

14 ^НЯN12 ВАІ., АМІ NN2 ИА, 
СОВЕ ОА < М1,М2->МЗ» 

14 І.НАМ12 ВАІ., АМІ АМ2 ОА, 
СОВЕ ХОА < N1,М2->МЗ) 

14 1.НАМ12 ВАІ., АМІ ЯМ2 ХА, 
і НОТ < МІ->М2 ) -1 ХОА і 

СОВЕ 0- < И->Р> АМІ АМІ ЗА 

РІІТЯИІ ВМ2, АМІ О ВСТА, 
СОВЕ 0< ( И->Р> АМІ АМ1 ЗА, 

РУТАМ! ВАМ, АМІ О ВСТА, 


МОТ 0* 0< 
Р0РРУТ1 В, 

рорруп в, 
рорруті в, 

, ЯИ2 РКП, 
РУТЯМ1 В, 
АМ2 РЦП, 
РУТЯМІ В, 


1 

ЕМО-СОВЕ 

ЕИВ-СОВЕ 

ЕАВ-С РВЕ 

ЯМ2 АМ2 НА, 
ЕИВ-СОВЕ 
ЯМ2 АМ2 НА, 
ЕИВ-СОВЕ 


і 


г 


4 


Внран номер 14 

< 31.03.66 8>В ВАВ8 ВАЕВАТЕ В+ В- ВЦ< ) 

СОВЕ 3>В < N->0 ) АМІ РОИ, РУЗН2АН! В, ЕИВ-СОВЕ 

СОВЕ ВАВ8 < В1--В2И4 1ЯН1 ВАІ, АМІ АН, ІРА, 2РиТАН1 В, ЕИВ-СОВЕ 

СОВЕ ВНЕѲАТЕ ( НВ1->НВ2) 

14 І.ЯМІ ВАІ, АН1 АМ1 ЮА, 2РІІТАА 1 В, ЕИВ-СОВЕ 
СОВЕ В+ < НВ1,НВ2->МВЗ) 

14 ШН12 ВАІ, АН1 АН2 АА, 2Р0РРІШ В, ЕИВ-СОВЕ 

СОВЕ В- ( НВ1,ИВ2->НВЗ) 

14 1.АМ12 ВАІ, АН1 АН2 ЗА, 2Р0РРІШ В, ЕНО-СОВБ 

СОВЕ ВЦ< ( ІІВ1,ІІВ2->Р> 14 І.АИІ2 ВАІ , О О ЗА, ЙМ1 АН2 СІА , 

71 ІР, О О ВСТА, ТНЕН, АЗТАСК 6 (, О АЗТАСК ІА, 

О РОТ, РНЕXТ ВА, ЕИВ-СОВЕ 


Экран номер 13 

( 31.03.66 В/НОВ В/ ВМРВ ВО» В» В0< В< В2/ 1 

СОВЕ В/ИОВ ( В1,В2->ВЗ,В4) 14 ШІ2 ВАІ, 1 АМ1 ІР, О АИ2 1.А, 
АН1 32 ЗАВА, АН1 О ВА, 10 ХА, 1 1 НА, ?И ІР, АН1 О АА, 
АИ2 О ВСТА, ТНЕН, АН1 ТЕИР ВТ, РІАЗТ 4 +(, 4 ), ТЕИР ИѴС, 
АН1 АН2 І.Я, 2РІІТРН1 В, ЕИВ-СОВЕ 
і В/ ( 01,02->03) В/ИОВ 23НАР 2ВА0Р | 

і ВМОВ < В1,02->03) В/ИОВ 2ВА0Р | 

I ВО» ( НВ->Р) ВА 0" | 

I В» ( НВ1,НВ2->Р). В- ВО» | 

I В0< ( В->Р) ЗНАР ВАОР 0< 1 

і В< ( В1,В2->Р) В- В0< | 

СОВЕ В2/ ( 01 ->02) 14 1.АИ1 ВАІ., АН1 1 ЗАА, РУТАМ! В, ЕНВ-СОВЕ 


Экран номер 16 

( 09.09.66 Ш1/П0В У< И/ИОВ ВИАХ ВНІИ ) 

сове уи» ( уі,у2->ув> м інрніг ваі, амі рмабк на, 

АН2 АИАЗК ИА, АМІ АМІ ИА, АМ1 АМ2 І.Я, 2Р11ТАМ1 В, ЕНВ-СОВЕ 

сове ун/мов ( ув,уі->у2,уз> і рор, і аиавк на, и і.амі ваі , 

АЗТАСК АТМО ВА, АМ2 АМІ 1.А, АМІ АМІ ЗА, АМІ 1 ВА, 

АМІ РХА6Т 4 +(, 6ТН, АМІ АМ2 ІА, РОРРУТІ В, ЕНВ-СОВЕ 
СОВЕ ІІ< < ІЛ,112->Р) АМІ АМІ ЗА, АМ2 РІЛЛ, АМ2 АИАЗК ИА, 

О 6ЕС0ИВ ІН, О АИАЗК ИА, О АМ2 СА, РОРРУТІ ВИІ., 

АМІ О ВСТА, ( РЕЗУЛЬТАТ "ИСТИНАМ РОРРПІ В, ЕИВ-СОВЕ 

і м/моо < иоі,иг->из,ив 4 > >а о а# им/мов а> змар >а им/мов я> і 

і ВИАХ ( В1 ,02—>03) 20ѴЕА 20ѴЕА В< ІР 23МАР ТНЕИ 2ВА0Р | 
і ВНІИ ( 01,02— >03) 20ѴЕР 20Ѵ*А В< НОТ ІР 28МАР ТНЕИ 2ВА0Р | 



Фкре* ичжвр 17 


< 31.03.86 МЕ ВА ТЕ А88 4 - 1+ 1- 2* 2- ♦! 1*! ) 

СООЕ НЕ 6 А ТЕ і М1->И2) ВИ1 РУН, ВН1 ВИІ 1.СВ, Р1ЛРИ1 В, ЕМ0-С00Е 
і АВ8 ( N1-> + N2> 5)0 ОАВЗ ОПОР | 

СООЕ + 14 1.НВИ12 ВАІ. , ВМ1 РИ2 АР, РОРРОТ1 В, ЕМ0-С00Е 

і - ( ИІ,И2->ИЗ) НЕ ВАТ Е 4 | 

! 1+ < И1->И2> 1 + | 

I 1- ( И1-Ж2) -1 4 | 

і 2+ ( М1->М2) 2+1 

I 2- < «1->И2> 2-| 

СООЕ +! ( М->> 1* І.НВИ12 ВАІ, РМ2 РИА8К N8, ВИІ 0 (, 

РМ2 ВРОВТН АН, ВИІ 0 (, ВМ2 ВРОВТН 8ТН, 2Р0Р 8, ЕИО-СООЕ 
і 1+! { А->) 1 ЗИАР +! | 


Экран номер 18 


( 03.10.86 И« И/ « /ИОО / ИОО #/И00 «/) 

СООЕ М* ( N1,Н2->0) ВИІ 2ЕС0Н0 Щ, ВИІ РІВВТ НН, 2Р0ТРН1 В, 
СООЕ Н/ ( 0,N1->N2,НЗ> 1 РОР, І4 І.ВИІ ВАІ, Р8ТАСК ВТИО 8В, 
ВИІ 32 8В0А, О ВИІ Ш, ВИІ 1 ОР, 0 1 ХВ, О О ИР, 

?И ІР, ВН1 1 АВ, ВН2 О ВСТВ, ТНЕН, ВИІ РІР5Т 4 ♦(, ЗТН, 
ВМ1 ВН2 1.В, 1 ЧАСТНОЕ) Р0РРЦТ1 8, ЕНО-СООЕ ' 

I « ( N1,Н2->N3) Н« ОПОР | 

і /ИОО ( N1,Н2->N3,N4) >В 8>0 В> И/ \ 

I / ( N1,N2->N3) /ИОО 8ИАР ОПОР | 

I ИОО ( N1,Н2->ЫЗ) /ИОО ОПОР р 
і «/ИОО ( N1,Н2,НЗ->Н4,Н5) >В И« Р> И/ | 

I «/ ( N1,Н2,НЗ->Ы4) «/ИОО ЗИАР ОПОР | 


Вкрак номер 19 


( 31.03.66 СРАВНЕНИЯ И РАЗРЕШЕНИЯ В ШИТОМ КОДЕ) 
і 0<> ( Н->Р) О* ИОТ | 

і • ( Н1,И2->Р) - 0* | 

і О ( И1,И2->Р> - 0<> | 

і < < N1,Н2->Р) - 0< » 

і >НАНК ( ->А ) НЕВЕ 0,| 

: >ПЕЗОЬ ѴЕ ( А->) НЕВЕ 8ИАР ‘ * 
і <ИАПК < ->А) НЕВЕ | 

! <ПЕ50ЬѴЕ ( А->) ,| 




4 

) 9 


Экран номер 20 

< 31.03.86 ЗР8 ЗР! ВРІ ВР! 2/ 2« 2І 2! ОЕРТН ) 

СООЕ 8РІ ( ->А) ПМІ В8ТАСК 1.В, ВИІ ВРОВТН ЗВ, РИЗНЯИ! В, 
СООЕ 8Р! < А-> > В8ТАСК РШЛ, ВЗТАСК ЯМА5К НВ, 

ВЗТАСК ВРОВТН АВ, ВИЕХТ ВР, ЕНО-СООЕ 

сооЕ врб ( ->А) пи і ввет ір, пи і яровтн зв, ризнпиі в, еио-соое 

СООЕ ВР! Г А->) ВВЕТ РОР, ВВЕТ ВИАЗК ИВ, 

ВВЕТ ВРОВТН АВ, ЯНЕХТ ВЯ, ЕНО-СООЕ 

сооЕ 2/ ( иі->и2 ) яиі рііи, пи 1 1 вяа, ротрмі в, еио-соое 

і 2* ( И1->И2 I ООР 4 I 

і 21 ( А->ИО) ООР 2« в 6НАР 6 I 

і 2! <ИО,А->> 0Ш> >В ! В> 24 ! \ 

I ОЕРТН ( ->4№ 8Р6 30 6 ЗиАР - 2/ | 


N 
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Экран номер 21 


< 31.03.86 СМОѴЕ СМОѴЕ > ) 

СООЕ СМОѴЕ ( А1, А2,ІІ->) 14 І.НІШ2 ВАЬ, Ш ВМАЗК N8, 2 "Г В2, 
ВИІ ВМАЗК N8, ВИІ ВРОВТН АР, 1 РІВ8Т 4 ♦ (, ІИ, 1 ВМАЗК НВ, 
1 ВРОВТН АР, 0 256 ЬА, 1 *Р В, ВЕ61Н, 

О <, 256 Виі ), 0 (, 1 МѴС, ВИІ О АР, 10 АР, 

1 *н РН2 о ев, ?м шп, риг о вств, виг о ар, 

?ММ ІР, ВМ2 3 «Р ЕХ, ТНЕМ, 

2 -Н Р ВТ АС К 6 (, О В8ТАСК ІА, РМЕХТ ВР, 

3 =Н 0 <, 1 РИІ ) , 0 (, 1 МѴС, ЕМ-СООЕ 

СООЕ СМОѴЕ) < А1,А2,Ц->> 14 1НВМ12 ВАІ, РМ2 РИА Б К МР, 1 >Р 81, 

виі вмАбк нр,. виі вровтн ар, риі о вств, 

І РІРЗТ 4 ♦ (, ЫІ, 1 ВМАЗК N8, 1 РРОРТН АР, 1 О ВСТВ, 

оо, о о (, і виг іс, о о <, виі виг зте, виг юорвст, 

1 »Н Р8ТАСК 6 (, О Р8ТАСК ІА, РМЕХТ ВР, ЕИО-СООЕ 


Экран номер 22 


< 31.03.86 РІИ.ЕВАЗЕ В(.АЖС СОМРИЕ С ] ИIN МАХ НЕХ ОЕСІМАІ.) 

{ пи ( а, -и, с-» гидр ?оир ір >в оѵер сі 

оир и в> і- смоѵе &хіт тнен говор і 
( а,ц-> ) о рхи і . 

< а,ц-> ) ві Ріи і 
( -> ) в> оир 2 + >в в , | 

( -> > 8ТАТЕ 0! I ІММЕОХАТЕ 
( -> ) -1 8ТАТЕ ! | 

( мі , N2->мз ) и інвиіг ВАЬ, 

рор внн, виі виг ів, рорроті в, 

СООЕ МАХ ( N1,N2->N3 ) 14 ІНВиі2 ВАІ., 

рор вні, виі виг ів, рорРиті в, 

і НЕХ < ->> 16 ВАЗЕ ! I 

I ОЕСІМАІ ( ->) 10 ВАЗЕ ! | 


ЕКГОЕ 
ВІАИК 

сомрие 
с 

3 

СООЕ МІН 


виі риг ея, 

ЕИО-СООЕ 

виі виг ев, 

ЕМО-СООЕ 


Экран номер. 23 


< зі.оз.8б ит гит итеваі гитЕВАь брасе брасез > 
сооЕ ит < ->и > виі о <, ві ррортн ьн, 

ві втио мі, ризняиі в, емо-соое 
соое гит ( ->ио ) виі 4 іа, взтаск виі ев, 
виг о (, их ррортн іа, рівзт <,4 >, о <, виг нѵс, 

ВІ виі АВ, ВМЕХТ ВВ, Е N О-СООЕ . 
і иТЕВАІ. ( И->> 8ТАТЕ В ІР СОМРИЕ ЬІТ , ТНЕН I ІММЕОІАТЕ 
I 2ИТЕВА1 ( ио-)) 8ТАТЕ I ІР СОМРИЕ 2ИТ , , ТНЕН | ІММЕОІАТЕ 
і 8РАСЕ < -» ВІ ЕМІТ I 

I 8РАСЕ8 ( +и»>) 0 ОѴЕР < ІР 0 00 8РАСЕ ЮОР ЕХІТ ТНЕН ОВОР | 


Вкран, номер. 24 

( 09.09.86 цикли со счетчикомі . <оо/ і г з іеаѵе» 
соое (оо) < иі,иг-> ) и інвиіг ваі, 
і «н іо (, ві ррортн ш, і вригні ві втио ав, 

виі рризн, виг вризм, 2 рор в, еио-соое 

СООЕ I ( ->и ТЕКШЕЕ ЗНАЧЕНИЕ СЧЕТЧИКА ЦИКЛА) 

виі, врии, ровнвмі в, ено-соое 

СООЕ Г < ->Ц ВЕРХНЯЯ ГРАНИЦА ЦИКЛА) 

виі взесоно ьн, ризнвиі в, ено-сове ' 

СООЕ ^ ( ->Ц ТЕКУІЕЕ ЗНАЧЕНИЕ СЧЕТЧИКА 2-ГО ЦИКЛА) 

виі врівзт 6 ♦(, иі, рцзнвиі в, ено-соое 

СООЕ ІЕАѴЕ ( ->) ВІ ВРІВЗТ 4 ♦ (, Ы*, ' ВІ ВМАЗК N8, 

РВЕТ 6 (, О ВРЕТ ІА, ВМЕХТ 8В, ЕНО-СООЕ 

с \ ' 

I « 
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Экран номер 29 


( 31.03.86 +ВЦР ВІІРРЕЯ ВЮСК ЕМРТУ-ВУРРЕЯВ ЦРОАТЕ ) 
і «6ЦР ( А1->А2,Р ПЕРЕЙТИ К СЛЕДУШМУ БУФЕРУ В ПУЛЕ) 
в/вцр 4 ♦ ♦ ОЦР иміт * ІР ОПОР РІЯВТ тнеы ш РЯЕѴ • - I 

і вуррея ( +н->А) оррвет • ♦ уве э оир >я 

( ИЩЕМ СВОБОДНЫЙ БУФЕР) ВЕ8ІЫ >ВЫР ЛЖТИ ОБЕ ! 

Яі I 0< ІР ( УСТАНОВЛЕН ПРИЗНАК "ЦРОАТЕМ 

ЯЭ 2+ Яі • 32767 А№ ЫВ1.К ТНЕК ЯЭ ! ЯЭ РЯЕѴ ! Я> 2+ } 
і ВЮСК ( +И->А) 0РР8ЕТ I ♦ >Я РЯЕѴ • ОУР I ЯЭ - ОЦР ♦ ІР 

ВЕ6 і N +вцр о® ір ояор яі оррвет і - вцррЕя оир яі явик 

2- ТНЕН ОЦР і Яі - ОЫР ♦ О® 
ішн оир РЯЕѴ ! ТНЕЫ ЯОЯОР 2+ і 

( емрту-вурреяв_ ( -> ) ріявт ими оѵея - еяаве \ 

: ОРОАТЕ < -> ) РЯЕѴ і і 32768 ОЯ РЯЕѴ і ! \ 


Экран номер 26 


( 31.03.86 ЗАѴЕ-ВІІРРЕЯ8 РЮ8Н ) 
і ВАѴЕ-ВУРРЕВВ ( ->) 

ПИП РІЯВТ 00 I і 32768 АЫО 

ІР I і 32767 АЫО ОЫР I ! 
I 2+ ВЫАР ЫВІ.К 

ТНЕМ 

в/вур 4 + +юор 

і 

і ПУЗН ( ->) ВАѴЕ-ВУРРЕВВ ЕМРТV-ВІІРРЕЯ8 ; 


Экран номер 27 


( 31.03.86 ЕЫСЮ8Е ЫОЯО ) 

СООЕ ЕШСЮВЕ ( А, С - > А, N1, N2, N 3) 14 І.НЯЫ12 ВАЬ, ЯЫІ ЯМА8К ЫЯ, 
ЯЫІ ЯРОЯТН АЯі 14 14 8Я, О О ВВ, 

ВЕБIN, 0 0 < * 14 ЯЫІ ІС, О О НЯ, 2 ®Р В2, 

14 1 (у 0 14 І.А, О ЯЫ2 СЯ, 7МЕ ЦИТИ, 14 О ВСТЯ, 

2 ®Н 14 РУТ, 

ВЕБIN, 1 14 І.Я, 0 0 (, 1 ЯЫІ ІО, О О ИЯ, 

2 ®Р В2, 14 1 (, 0 14 І.А, О ЯЫ2 СЯ, ?Е УШТИ, 

2 ®Н 1 РЫ8Ну ЯЫІ 14 І.В, РЫ8НЯЫ1 В, ЕЫО-СООЕ 

і ЫОЯО ( С->Т ) ВІК і ІР ВІК і ВЮСК ЕІВЕ ТІВ ТНЕМ 
>ІЫ і ♦ 8ЫАР ЕЫСЮВЕ >ІН ♦ ! 

НЕЯЕ >Я ОѴЕЯ - >Я ♦ АНВИН НЕЯЕ 1+ Яі СМОѴЕ 

НЕЯЕ Я> 1+ АЮОТ АНВИН НЕЯЕ ОѴЕЯ - 2- ОѴЕЯ С! Я> ОР! | 


Экран номер 28 

( 31.03.86 ит в СОУИТ ■ ”. (."/ С" і .< ОУІТ АВОЯТ ) 

СООЕ ит м ( ->т ) 14 ІРЦВН ВАІ., ЯМЕХТ ВЯ, ЕНО-СООЕ 

соиіи < т- >а , И) оир і+ эыар сі гоцр ♦ сі ір и тнеи ) 

( -> ) С” " ЫОЯО Сі 2♦ АНОТ АНВИН $ 

" < ->Т) 7С0МР СОНРПЕ ПТ" I ІМИЕОІ АТЕ 

". ( Т-> ) СОЫЫТ ТУРЕ I 

СООЕ (.") < ->) 14 ІРЦВН ВАІ., 14 ѲОТО ВАЦ 3 и . С 

." < -> ) 7С0МР СОМРИЕ (.") \ ІММЕОІАТЕ 

с" ( ->п ві. ыояо і+ сі ссомриез нтеваі. і іммеоіате 

( < ->) С" ) ЫОЯО ОЯОР ; ІММЕОІАТЕ 

.<(->> С н ) ЫОЯО СОЦНТ ТУРЕ ) ІММЕОІАТЕ 

ОУІТ < ->) ІСОМРПЕЗ і 80 і 8Р! ЯО і ЯР! ФОРТ-СИСТЕМА ) 
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Экран номер 29 

ѵ ‘ : 

( 31.03.06 ПРОВЕРКИ И СИГНАЛИЗАЦИИ ОБ ОШИБКАХ ) 
і 7АВ0РТ ( р,Т~>) БИАР ІР С00N1 СР ТУРЕ АВОРТ ТНЕИ ОРОР | 

СООЕ (А") ( Р->) 14 ІРІІ5Н ВАЦ, 14 6070 ВАЬ ѵ 2 7АВ0РТ С ЕМО-СООЕ 
і АВОРТ" ( Р->) СОИРИЕ (А") | ІММЕОІАТЕ 

і АВОРТѲ < ->) -1 АВОРТ" НЕПРАВИЛЬНОЕ ЗНАЧЕНИЕ В СТЕКЕ" | 

* !С5Р < ->) ВРІ СВР * { “ 

і ?С5Р < ->> ВРІ СВР I - АВОРТ" СБИЛСЯ УКАЗАТЕЛЬ СТЕКА" | 
і 7РАІРВ ( N1 ,N2-) ) - АВОРТ" НЕПАРНЫЕ СКОБКИ" | 

СООЕ 7+ ( Ы->Ы ) РІРВТ 12В ТМ, РИЕХТ В2Р, ЕРС0И08 В, ЕИО-СООЕ 
і 7С0ИР ( ->) ВТАТЕ I МОТ АВОРТ" ТРЕБУЕТСЯ РЕХИИ КОМПИЛЯЦИИ" } 

: ВАОНОРО ( Т->) СР ". 7" АВОРТ | 


Экран номер 30 

( зі.оз.вб >эооу вооѵ> >иик шк> і.>иаме юшк >маме маме> ) 

I >ВООУ ( СРА->РРА) 2+ I 
I ВООУ> < РРА->СРА) 2- I 
і ЯІИК ( СРА-НРА) 2- \ 

I ИНК> ( ЬРА->СРА) 2+ I 

СООЕ 1.>НАМЕ 1 І.РАОНРА) РИ2 РШ., РИ2 РМА6К МР, РНІ РН2 1.Р, 
14 ИЕНВ ІА, 1 1 8Р| 00, РИ1 РТНО 6Р, I 0 (, РНІ РРОРТН 1С, 

1 ЬЕМб1МВК Ы, 0 2 (, 1 РНІ 1.А, О РН2 СР, Р0ТРН1 ВЕ, 

14 ЮОРВСТ, РЦТРИ1 В, ЕИО-СООЕ 
і И>ШК 1 ЫРА->ЦРА) оир Сі 31 АЫО + 2+ I 
I >МАМЕ ( СРА-ИРА) >ШК ОНАИЕ | 

I N А МЕ > ( ИРА->СРА> Н>І.ХНК ИЫК> I 


Экран номер 31 


< 31.03.В6 1.АТЕВТ ОЕРШТІОИВ 6МЦ06Е ЦИВМЦОВЕ ІММЕОІАТЕ 10.) 
! 1.АТБВТ 1 ->ЫРА) СЦРРЕЫТ II) ( <|СООЕ/ РЕСЦРВЕ) 

I ОЕР ІИХТІ 0Ы6 ( ->) С ОМ ТЕ X Т I СЦРРЕИТ ! \ 


і вмиовЕ ( ->) 

і Ц№МиОВЕ ( ->) 

і ІММЕОІАТЕ ( ->) 
I ІО. ( НРА-> ) 


I (|СООЕ) 
і РЕСЦРВЕ 


( -> ) 
< ->) 


І.АТЕ8Т Сі С іВРЦАВ 3 ИТЕРАЦ ОР 1.АТЕВТ С! 
ІАТЕВТ Сі С 233 ІВРІ.АВ - 3 ИТЕРАІ 
А N О 1.АТЕВТ С! ; 

1.АТЕ6Т Сі і ЫР1.АВ ] ИТЕРАЬ ОР 1.АТЕВТ С! 
011Р 1+ ВНАР Сі С МЕН6 3 ИТЕРАІ. АНО 
20ШР + Сі ІР 1+ ТНЕМ ТУРЕ 8РАСЕ | 

Р> 1.АТЕ8Т МАМЕ> ! | 

1.АТЕ8Т МАМЕ) , ; ІММЕОІАТЕ 




Экран номер 32 

( 31.03.В6 СО№ТАИТ ѴАР1АВІ.Е 2С0И6ТАЫТ 2ѴАРІАЭІ.Е і | ) 

I 7ЮА0ІИВ ( ->) Вик і О» АВОРТ" НЕТ ОБРАБОТКИ ЭКРАНА" } 

: 76АР ( N->1 НЕРЕ + ВРІ ВНАР Ц< АВОРТ" ИСЧЕРПАНИЕ ПАМЯТИ" ; 

I 75 ТА С К ( ->) ВО і ВРІ ІК АВОРТ" ИСЧЕРПАНИЕ СТЕКА" 10 ?6АР \ 

( СОИВТАИТ ( И-> ) СРЕАТЕ , {СООЕ 

РНІ 0 (, 14 РРОРТН ин, РЦ6НРН1 в, еио-соое 
і ѴАРІАВІ.Е < -> ) СРЕАТЕ 0 , } 

і 2ѴАР1АВІ.Е ( -> ) СРЕАТЕ 0 , 0 , | 

I 2С0Ы8ТАМТ ( М0-> ) СРЕАТЕ , , ООЕБ> 2І | 

II і -> ) !СВР СРЕАТЕ 3 8МЦ0ВЕ ;СООЕ 

РІ РРШ5Н, РІ 14 ІР, РЫЕХТ ВР, ЕИО-СООЕ 
I | ( -> ) 7СВР СОМРИЕ ЕХІТ ЦИВНЦОВЕ ССОМРИЕЗ С { ІММЕОІАТЕ 
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Экран номер 33 


< 09.09.86 РОВТН РОВТН* РЦ* ѴОСЧТНК ѴОСАЭІЛАВѴ ѴОСАВШ.АВѴ*) 
ѴОС РОВТН ІОНОВО Н, { РОВТН-83) 

Аі РОВТН* І.А5ТЫ0В0 ( ВХОД В СПИСОК СЛОВАРНЫХ СТАТЕЙ) 

Аі РИ О Н, і ПОЛЕ СВЯЗИ ДЛЯ СПИСКОВ СТАТЕЙ) 

СВЕЙТЕ ѴОСЧІЫК ’РИ < ВХОД В СПИСОК СПИСКОВ СТАТЕЙ) 

: ѴОСАВІЛ.АВѴ ( -> ) СВЕАТЕ С ІОНОВО 3 иТЕВАІ , 

ит с ровтн* ] 

СОЫТЕХТ I - ІР СОМТЕХТ I 2- ЕІ.8Е О ТНЕЫ , 

Неве ѵос-иык і , ѵос-иик і ооев> 

С ТНЕВЕ 4 - (Аі ѴОСАВШ.АВѴ* 3 
2+ СОНТЕХТ ! } 

і РОВТН-83 ( ->) РОВТН 0ЕРІЫІТІ0Н8 ОЕСІНАі. | 


Экран номер 34 

< 31.03.86 (РІЫО/ ) 

СООЕ (РІЫО) ( -1,АН,...,А1,Т->СРА,С,ТР/РР ) ВЫ2 РОР, 

ВЫ2 ВИАВК ИВ, ВН2 ВРОВТН АВ, < ОБРАЗЕЦ) О О ЗВ, 

О 0 (, О ВН2 ІС, О 1ЕИВ1НВК N. ( ДЛИНА) 1 1 8В, 1 О ВСТВ, 

ВЕ61N, ВЫ! РЦИ, < ВХОД В ОЧЕРЕДНОЙ СПИСОК СЛОВ) 2 *Р В, 

ВШИ, ВН1 ВРОВТН АВ, 140 (, О ВЫ1 ІС, 14 І.ЕИ8ПА8К И, 

14 О СВ, ?Е ІР, 14 4 «Р ЕХ, 3 *Р ВЕ, ТНЕИ, 

14 1ЕЫВ1П8К И, ВЫ1 2 (, 14 ВЫ1 1.Н, 

2 *Н ВЫ1 ВНА8К ИВ, 72 ЦИТИ, 

В8ТАСК ВТЫО АВ, 1 РІВЗТ СН, ?Е иит, Р0ТВЫ1 в, 

ВЕЗIN, В8ТАСК ВТЫО АВ, 3 *Н 1 РІВ8Т СН, ?Е ЦИТИ, 

О 0 (, О ВЫ! ІС, ВЫ1 ВРОВТН 8В, ВЫ1 4 (, 14 ВЫ1 ІА, 

ВЫ1 РОТ, О РЦ8Н, ВЫ 1 1 1.В, РЦВНВЫІ в, 

4 «Н 1 (, 1 ВЫ1 ), 1 (, ВЫ2 СЮ, ЕИО-СООЕ 


Экран номер 33 

• ♦ 

< 31.03.86 РІИО -РІИО ) 

1 РІИО ( Т->А,N) 

оцр >в -і ит с ровтн* з і 

СЦВВЕИТ I I 201ІР а ІР ОВОР ТНЕИ 
СОМ ТЕ X Т I I 201ІР ■ ІР ОВОР ТНЕМ 

в> (рімо) оир ір 

ОВОР ВОТ ОВОР С ЫР1А6 3 ИТЕВАІ АИО ІР 1 ЕІ.8Е -1 ТНЕМ 

ТНЕМ 

) 

і -РІМО < ->А,И) ВІ. НОВО РІИО I 


Экран номер 36 

< 09.09.86 СВЕАТЕ 00ЕЗ> ) 

і СВЕАТЕ ( ->) 100 ?ВАР 

АИ6ИН -РІИО БНАР ОВОР ІР 
НЕВЕ ІО. ." УХЕ ЕСТЬ " ТНЕМ 

Неве оир Сі ЫІОТН АМО 2+ АИОТ АНВИН 
НЕВЕ ОѴЕВ - 2- ОѴЕВ С! ЦАТЕ8Т , СІІВВЕИ7 I ! 

ИТ С СВЕАТЕ* 3,1 

і ооЕЗ> ( -> ) сонриЕ < і сооЕ) гит 

[ 00Е8* В, 3 , , I ІНИЕОІАТЕ 
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Экран номер 37 


( 31.03.86 РАО НОЮ АІ.РНА <8 і> I 18 8І6И ) 
і РАО < ->А) НЕВЕ 100 + } 

і НОЮ < С-> ) -1 НЮ +! НЮ I С! I 

СООЕ АІ.РНА ( N->0) ВЫ2 РІР8Т Ю, 

виі выі эр, выі і »р <, вы2 іс, ритвыі в, 

1 «н С,' 01234567В9АВСОЕР6НПК1.ММОРаВВТ1ШЫгУ1' 

ЕМ-СООЕ 

і <1 ( -> ) РАО НЮ ! ; 

і І> ( 0->А,*Ы) 20Р0Р НЮ I РАО ОѴЕР - | 

: 8 < 01 ->02) ВА8Е I Н/НОО РОТ А1.РНА НОЮ | 

і «8 < 0->0,0) ЭЕ ВIN I 201ІР ОР 0» ІЛШІ. | 

і 5І6М ( Ы->) 0< ІР С н - НОЮ ТНЕМ | 


Экран комар 38 

< 31.03.86 о.р о. .р . н. и. и.в ? > 

і о.р ( о,+ы-> ) ?+ >р оцр >р о а вг 

<8 «8 Р> 81В N 8> р> ОѴЕР - 8РАСЕ8 ТУРЕ | 

: 0. ( 0-> ) О О.Р ВРАСЁ \ 

і .Р ( N1,+N2-)) >Р 8>0 Р> О.Р | 

і . ( Ш-> ) 8>0 0. } 

I Н. ( Н->) ВА8Е I 8ЫАР О НЕХ <1 I I 8 8 8> ТУРЕ 8РАСЕ 

ВА8Е ! | 

і Ц. ( Ц->) 0 0. | 

і Ц.Р ( МН-)) >Р О Р> О.Р | 

I ? < А->) 8 . \ 


Экран комар 39 

( 31.03.86 0І6ІТ СОЫѴЕВТ ИиМВЕВ ) 

* 0І6ІТ ( С,N1 — >И2,ТР/РР) О РОТ РОТ О 

00 I АІРНА ОѴЕР - ІР 20Р0Р I -1 О ІЕАѴЕ ТНЕМ ЮОР ОРОР | 

: СОЫѴЕВТ ( Ы01,А1->Ы02,А2) 

ВЕ61N и оцр >В Сі ВА8Е I 0І8ІТ ИННЕ 

6МАР ВА8Е I ІЖ* ОРОР РОТ ВА8Е I ІЖе 0+ 

ори і и ір орі. і+! тнем р> ререат в> і 
с ішивер ( т->ыо ) 

О О РОТ оцр >Р СОШ ОѴЕР + ОѴЕР Сі С" - » 
оир >Р 5ЫАР >Р ір ЕІ.8Е I- ТНЕЫ -1 
ВЕѲ IN ОРІ. ! СОЫѴЕВТ ОЦР РІ < НИНЕ ОЦР Сі 
С . О ІР РОРОР РОРОР Р> ВАОЫОВО ТНЕМ о 
РЕРЕАТ ОРОР РОРОР В> ІР ОИЕѲАТЕ ТНЕМ РОРОР | 


Экран комар 40 

< 31.03.86 ЕХРЕСТ ОІІЕРѴ ШЕВРВЕТ ФОРТ-СИСТЕМА X ) 
і ЕХРЕСТ ( А,+М-> ) ОЦР >Р (ЕХРЕСТ) ОЦР 5РАН ! 

ТУРЕ Р> 8РАИ і - ІР 8РАСЕ ТНЕИ | 
і вІІЕРУ ( ->) ТІВ 80 ЕХРЕСТ >ІИ О! ВЫ< О! ЭРАМ і 8ТІВ ! \ 
і ШЕВРВЕТ ( ->) ВЕ61N -РІЫО 700Р ІР 

1+ ІР ЕХЕСІІТЕ Е1.6Е 8ТАТЕ і ІР , ЕЦ8Е ЕХЕСІЛЕ ТНЕН ТНЕЫ 
ЕІВЕ НЦНВЕР ОРІ. і 1+ ІР СС0МРПЕ1 2ИТЕВАІ. 

Е18Е ОРОР ССОМРИЕ! ИТЕРАІ ТНЕЫ ТНЕЫ 76ТАСК АВАIN ; 
і ФОРТ-СИСТЕМА ( ->) ВЕѲIN СШЕВУ ШЕВРВЕТ А6АIN | 

СООЕ X ( ->) ЭАБИТЬ-Х ( НУЛЕВОЙ КОД ВМЕСТО БУКВЫ «X й ) 

ЕХІТ8 8, ЕИО-СООЕ ІММЕОІАТЕ 
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Экран номер 41 


< 31.03.86 -ТРАПІИв ' ГЗ ССОМАПЕЗ ЮАО ТНРІЗ >8 — > ) 

СООЕ -ТРАПОВ < А,N1- >А,N2) 14 1НРЫ12 ВАЦ, РМ1 РМАВК N8, 

РЫ1 РРОРТН АР, О РЫ1 ІА, РЫ1 РМ2 АР, ВЕѲ 1N, РИ1 О СЯ, 

1 «Р ВИН, РЫ1 О ВСТР, 0 (, РМ1 64 си, 7ЫЕ ШИШ, О О ВСТР, 

1 «Н РЫ1 О БР, РЦТРиі В, - ЕЫО-СООЕ 
і * ( ->СРА) -РІЫО О* ІР ВАОЫОРО ТНЕМ ) 
і С'] < -> ) 7С0ИР ' ССОМРИЕЗ ИТЕРАЬ | ІИМЕОІАТЕ 

і ССОМРИЕЗ ( ->) -РІНО ІР , ЕХІТ ТНЕЫ ВАОМОРО \ ІИМЕОІАТЕ 
і ЮАО ( Н-> ИНТЕРПРЕТИРОВАТЬ БЛОК С НОМЕРОМ N3 

>ІН I >Р В1.К I >Р В1.К ! >ІЫ О! ШЕВРРЕТ Р> ВІ.К ! Р> >ІЫ ! | 
і ТНРЦ < N1•N2-) ИНТЕРПРЕТИРОВАТЬ БЛОКИ ОТ N1 ДО N2) 

1+ БИАР 00 I ЮАО ЮОР \ 

I 18 < ->) 7ЮА0ІЫ6 РОРОР \ ІИМЕОІАТЕ 

і —> ( ->) 7ЮА0ІИВ >1Ы О! 81.К і + ! | ІИМЕОІАТЕ 


Экран номер 42 

( 09.09.86 ООМР 5ИАР5ТК 8. Р. ) 

і ОІЖР ( А,Ц-> РАСПЕЧАТАТЬ Ц БАЙТОВ) ОЦР ІР 

ВА8Е I >Р НЕХ ОVЕР + БИАР 00 СР I <1 С" * НОЮ 

О 15 00 оцр г + Сі НОЮ -1 +ЮОР С" * ною 
О 15 00 ВІ. НОЮ ОЫР I + Сі О I # 20Р0Р -I +ЮОР ві. ною 
ВІ НОЮ 0 « « I « І> ТУРЕ 16 +ЮОР Р> ВА8Е ! ЕІБЕ 20Р0Р ТНЕИ | 

I ВЫАРВТК РОРОР СР ". ." , ВСЕГО ЗНАЧЕНИЙ " 

201ІР 8ЫАР - 2/ ОЦР . О 8ИАР < ІР ." (ВЕРШИНА СПРАВА) 11 СР 
2- 00 I I . -2 +ЮОР ЕІ.8Е 20Р0Р ТНЕИ ) 

> 8. ( ->) 8РІ 80 I " СТЕК ДАННЫХ 11 5МАР5ТК ; 

і Р. ( ->) РРІ 2+ РО I 11 СТЕК ВОЗВРАТОВ" ВИАРВТК | 


Экран номер 43 

< 31,03.86 .ѵос (ѴОС/ ѴОСБ ) 

I . ѴОС ( РРА+2-) ) 2- ВООУ> >NАМЕ ІО. \ 

і (ѴОС) ( РРА1+2->РРА2,И) I О 

ВЕѲ IN ОѴЕР ОЫР ІР I і ШОРО 3 ИТЕРАІ. О ТНЕИ 
ИННЕ И ( СЧЕТЧИК СЛОВ) 8ЫАР Ы>ШК I БИАР РЕРЕАТ ) 

» Ѵ0С8 ( -> ) -1 ГЗ РОРТН >ВООУ 2+ 

сивРЕЫт і . ц список сцрремт» и оир .ѵос оѵер і оѵер і » 

ІР ОПОР ТНЕИ СОИТЕХТ I ." СПИСОК СОИТЕХТі " Ш .ѴОС 
ОѴЕР і ОѴЕР е = ІР ОРОР ТНЕИ 
СР СТАНДАРТНЫЙ ПОРЯДОК ПОИСКА: " 

ВЕ61N 2- ВЕѲIN 2+ ОЫР .ѴОС (ѴОС) ОРОР ОЫР 0» иыТП 

орор оир -і в инти опор 

СР НАЛИЧНЫЕ СПИСКИ СЛОВ: " ѴОС-ИЫК I 

веѳ іN оир 2- .ѵос і оир о* шин орор і 


Экран номер 44 


( 31 . 03.86 Ы 0 Н 08 ) 

і иороБ ( -> ) 

." СПИСОК • СОИ ТЕ X Т а оцр .ѴОС ОЫР (ѴОС) 

." ВСЕГО СЛОВ - н . ." СЛЕДУЮЩИЙ СПИСОК - и 
700 Р ІР 2 + .ѴОС ТНЕЫ 

ср а веѳ і N оир ш ір а с ьомово з итеваі. о тнеы 

ИННЕ ОЦР са [ & 8 РІА 6 3 ИТЕРАІ. АЫО О* 

. ІР оир ІО. БРАСЕ ТНЕЫ 

іинык а ререат орор \ 
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Экран номер 45 


( 31.03.86 (Р0Р6ЕТ/ РОРВЕТ ' ЯЕМЕМВЕР РОРВЕТО ) 

і (РОРВЕТ) ( А-> ИСКЛЮЧИТЬ ВСЕ СЛОВА ВЫШЕ АДРЕСА А) 
ОВР РЕЙСЕ і іи АВОРТ" ЗАШИТА ПО РЕЙСЕ" 

>р ѵос-инк в 

ВЕВІИ Рі ОѴЕР и< ИННЕ 
РОРТН 0ЕР1ИІТ10И8 

і оир ѵос-иик * 

РЕРЕАТ ( ДОШЛИ ДО СПИСКА, ГДЕ ЕСТЬ ЭТО СЛОВО) 

ВЕ6ІИ оир 4 - 

вевіи и>иик і т рй и< іши 

ОѴЕР 2- ! I ?ОЦР О» ІІНТИ Р> ОР! ) 
і РОРВЕТ < ->) ' >НАНЕ (Р0Р6ЕТ) ; 

і РЕНЕИВЕР ( ->) СРЕАТЕ 00Е8> (РОРВЕТ) \ 


Экран номер 46 

( 31.09.86 (#8ср/ игт гср? іиоех ) 

і (Й8СР) ( Н->А,Т ПЕРЕВЕСТИ НОИЕР И ЭКРАНА В ТЕКСТОВОЕ ИИЯ) 
ВА8Е I >Р ОЕСІИАІ. 0 <« «8 «> Р> ВА8Е ! | 
і НВТ ( И-> РАСПЕЧАТАТЬ ЭКРАН И, ЗАПОМНИТЬ ЕГО В "ВСЯ") 

Ш 8СР ! СР ." ЭКРАН “ оир (Й8СР) ТУРЕ 
ВЮСК 16 О 00 рцр I 64 * + 

СР I 3 .Р ВРАСЕ 64 ТУРЕ ЮОР ОРОР | 


Экран номер 47 


( 31.03. 
і ВЕВІИ 

і цитн 

і АВАІИ 
I ІР 
I ТНЕИ 
і ЕІ.8Е 

: ИННЕ 
і РЕРЕАТ 

I 00 
і ЮОР 
і +І.ООР 


86 СТАНДАРТНЫЕ СТРУКТУРЫ УПРАВЛЕНИЯ ) 

7С0ИР <ПАРК 1 1 

1 7РА1Р8 СОНРИЕ 7ВРАИСН (РЕ80І.ѴЕ > 

1 7РАІР8 СОНРИЕ ВРАИСН <РЕ801ѴЕ ; 

7С0МР СОНРИЕ 7ВРАИСН >НАРК 2 | 

2 7РАІР8 >РЕ&ОЬ ѴЕ | 

2 7РАІР8 СОНРИЕ ВРАИСН >НАРК 
8ЫАР >РЕ80ЦѴЕ 2 \ 

1 7РАІР8 1 ССОИРПЕЗ ІР \ 

>Р >Р С СОНРИЕ] АВАІИ 
Р> Р> [СОНРИЕ] ТНЕИ ; 

7С0МР СОНРИЕ (00) >МАРК <МАРК 3 і 

3 7РАІР8 СОНРИЕ (ЮОР) (РЕ801.ѴЕ >РЕ80І.ѴЕ | ІННЕОІАТЕ 
3 7РАІР8 СОНРИЕ <+ЮОР> <РЕ80ЮЕ >РЕВОЮЕ } ІННЕОІАТЕ 


ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 

ІННЕОІАТЕ 


Приложение 2. 

Распространенные форт-системы 

Фиг-форт. Система разработана в 1978 — 
1980 гг. группой из 9 системных программистов в 
США — Группой по языку Форт (РОКТН Іпіегезі Сгоир ), 
желавших сделать этот язык удобным средством 
программирования для персональных ЭВМ [28]. Систе¬ 
ма реализована для целого ряда ЭВМ с различной архи¬ 
тектурой. В нашей стране получила распространение на 
ЭВМ СМ-4 с операционными системами ОС РВ, РАФОС 
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и без операционной системы. Ее ядро, написанное на 
макроязыке ассемблера, занимает от 4 до 5 К байт и 
после загрузки в память ЭВМ позволяет вводить сле¬ 
дующие определения уже непосредственно на языке 
Форт. Общий объем словаря — около 8 К (220 слов). 
В реализации применен косвенный шитый код. Имеются 
загружаемый ассемблер и текстовый редактор. 

Форт-СМ. Система разработана в Ленинграде 
С. Б. Кацевым (ЛГУ) и И. А. Шендриковым (ЛИТМО) 
на основе стандарта «Форт-83». Используется с 1985 г. 
на ЭВМ СМ-3, СМ-4, ДВК, «Электроника-60», БК0010. 
Словарь включает около 350 слов, его общий объем — 
10,5 К. В зависимости от генерации может работать 
под операционными системами ОС РВ, РАФОС или без 
операционной системы с перфоленточной загрузки. 
В реализации применен косвенный шитый код. Имеются 
связь с файловой системой соответствующей ОС, загру¬ 
жаемый структурный ассемблер с метками, строковый 
и экранный редакторы, целевая компиляция. 

Форт-Тарту. Система разработана в ВЦ Тар¬ 
туского государственного университета Р. В. Вяйнасте и 
А. Э. Юуриком для операционных систем ОС РВ (ис¬ 
пользуется с 1983 г.) и ЮНИКС (с 1985 г.). Ядро 
системы занимает 8 К байт и включает 270 слов. Си¬ 
стема является расширением стандарта «Фиг-форт». 
В реализации применен прямой шитый код. Имеется 
встроенный ассемблер, в оттранслированном виде зани¬ 
мающий 1 К байт. Встроенный текстовый редактор 
для ОС РВ имеет только строковый режим, для 
ОС ЮНИКС реализоваи экранный вариант. Система 
используется в учебном процессе и как инструменталь¬ 
ное средство для НИР [20]. 

Форт-К580. Система разработана в ЛГУ В. А. Ки¬ 
риллиным, А. А. Клубовичем и Н. Р. Ноздруновым для 
микропроцессора К58Ѳ. Используется с 1983 г. Система 
легко переносится на любое оборудование на базе К580, 
в частности она успешно перенесена на ЕС-7970, 
СМ-1800 (под управлением ОС «Си-Пи-Эм»), К1 -10, 
КТС ЛИУС, КУВТ «Ямаха», КУВТ «Корвет» и большое 
число мелкосерийных микроЭВМ. Включена в комплект 
заводской поставки ЕС-7970 в составе программного 
комплекса ЯНУС. Ядро системы занимает от 8 до 
12 К байт и насчитывает около 300 слов. Система явля¬ 
ется расширением стандарта «Форт-83», включает все 
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стандартные расширения и ряд слов для взаимодей¬ 
ствия с операционной системой и аппаратурой 
устройств, а также для разработки и отладки программ; 
Имеются отдельно загружаемые пакеты для работы 
с числами в формате с плавающей точкой, для диало* 
гового обучения языку Форт, для целевой компиляции 
и построения конечного программного продукта, раз¬ 
мещаемого в ПЗУ и (или) ОЗУ. В реализации применен 
прямой шитый код. Встроенный структурный ассемблер 
разрешает использование меток. Имеется два текстовых 
редактора — построчный и поэкранный. 

Форт-ЕС. Система разработана в Ленинградском 
институте информатики и автоматизации АН СССР 
(ЛИИАН) С. Н. Барановым для ЕС ЭВМ [2] под 
управлением ОС ЕС и СВМ ЕС. Ядро системы занимает 
13 К байт и насчитывает 350 слов. Система является 
расширением стандарта «Форт-83», включает все 
стандартные расширения и ряд слов для взаимодей¬ 
ствия с операционной системой, для работы с четырех¬ 
байтными машинными адресами, для разработки и от¬ 
ладки программ. Имеются отдельно загружаемые па¬ 
кеты для работы с числами в формате с плавающей 
точкой, для связи с файловой системой, для справочной 
подсистемы с диалоговым учебником по языку Форт. 
В реализации применен косвенный шитый код. Встроен¬ 
ный структурный ассемблер разрешает использование 
меток. Текстовый редактор работает в режимах по¬ 
строчного и поэкранного редактирования. Система 
имеет отдельно загружаемый пакет целевой компиля¬ 
ции и средства для построения независимого программ¬ 
ного продукта 

Форт-Искра-226. Эта развитая операционная систе¬ 
ма на базе языка Форт [6] разработана в Институте 
социально-экономических проблем (ИСЭП) АН СССР. 
Используется с 1986 г. Включена в комплект заводской 
поставки ЭВМ «Искра-226». Объем — около 32 К байт 
(свыше 400 слов). Система базируется на стандарте 
«Фиг-форт», расширенном рядом слов в соответствии 
с ее функциональным назначением. Среди них встроен¬ 
ный диспетчер, средства для параллельного выполне¬ 
ния директив, работа с файлами и базами данных, 
работа с адресным пространством до 128 К байт. Важ¬ 
ным встроенным средством является программная реа¬ 
лизация элементарных математических функции и 
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операций для работы с плавающей'точкой'. В реализа¬ 
ции применен прямой шитый код. Встроенный экранный 
редактор имеет режим работы с окнами. 

Форт-М6000. Система разработана В. Н. Патрыше- 
вым (Ленинград) для ЭВМ М6000 под управлением 
ДОС РВ, РТЕ-2 и для работы без операционной систе¬ 
мы. Используется с 1985 г. Ядро занимает 14 К байт 
(300 слов). Система ориентирована на стандарт 
«Форт-83». В реализации использован прямой шитый 
код. Имеются своя файловая система, средства для 
связи с операционной системой, строковый редактор, 
ориентированный на файловую систему. 

Форт-БЭСМ-6. Система разработана в Институте 
теоретической астрономии (ИТА) АН СССР И. Р. Ага¬ 
мирзяном для ЭВМ БЭСМ-6. Используется с 1984 г. 
Работает под управлением ОС ДИСПАК и имеет интер¬ 
фейс с файловой системой КРАБ. Общий объем — 
24 К байт (500 слов). По входному языку система ближе 
всего к стандарту «Фиг-форт», вместе с тем использует¬ 
ся ряд слов из стандарта «Форт-83». Сравнительно 
большой объем памяти связан с отсутствием в ЭВМ 
БЭСМ-6 байтовой адресации. Для представления стан¬ 
дартного двухбайтного значения используется шести¬ 
байтное машинное слово БЭСМ-6. По той же причине 
для работы с байтовыми зиачениями вместо слов С@, 
С! и других введен ряд специальных слов. Из-за 
особенностей системы команд в реализации применен 
подпрограммиый шитый код. Это позволяет включать 
ассемблерные вставки непосредственно в шитый код 
и наоборот — высокоуровневые слова как обращения 
к подпрограммам внутрь ассемблерных определений. 
Прототипом для встроенного ассемблера является 
ассемблер МАДЛЕН БЭСМ-6. В качестве текстового 
редактора используется стандартный редактор опе¬ 
рационной системы. 

Форт-Эльбрус. Система разработана на математико¬ 
механическом факультете ЛГУ А. Е. Соловьевым для 
МВК «Эльбрус». Работает с 1986 г. под управлением 
ОС «Эльбрус». Ядро занимает 4,5 К байт (200 слов). 
Система ориентирована на стандарт «Форт-83», имеет 
ряд специальных инструментальных слов и средства 
для связи с процедурами на языке Эль-76. 
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Язык Форт появился в начале 
1970-х гг. вСША Быстрый росі 
его популярности приходится ил 
середину !97(м тт. 4 когда по 

ЯВИЛИСЬ ІіерСіЖалЬіІЬК Оѵ'Л 

І1]н|) -к.к распространено* 
дучили коммерческие програм¬ 
мные продукты, иагшеанные ид 
языке Форт — системы обра¬ 
ботки текстов, пакеты машин¬ 
ной графики, трансляторы - ви¬ 
деоигры . В 1983 г. опублико¬ 
ван стандарт «Форт ь со¬ 
ответствии с которым строится 
изложение п данной книге. 

Система программирования и* 
Форте (форт -система) обычна 
обеспечивает полный набор 
средств поддержки для рзэрв 
бот к и и исполнения программ, 
операционную систему, ките, 
претвтор для диалогового ис¬ 
полнения, компилятор, ассемб¬ 
лер, текстовый редактор И 
обслуживающие программы 
Все эти компоненты являются 
расширениями Форта и напи¬ 
саны на іом же ФориЧ 

Таким обратом, Форт •— это и 
система дли пользователя и 
метасистем о. В соотнес «тайн 1 
с этим іфМішилоѵ н форт си¬ 
стеме используется минимум 
привил и накладывается ми¬ 
нимум ограничений, т. с. почти 
кет синтаксиса, жестко конт¬ 
ролируемых интерфейсов дли 
взаимодействия модулей, за¬ 
крытых для пользователя обла¬ 
стей памяти, имеется лишь 
незначительный но объему 
встроенный контроль ошибок 
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